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Fortran IV 


This publication contains the language specifications, 
program specifications, and operating procedures for 
the Fortran IV programming system for ibm 1401, 
1440, and 1460. In this publication, the term Fortran 
system refers to 1401/1440/1460 Fortran IV, program 
number 1401-FO-051. 

This publication is divided into three major sections, 
language specifications, program specifications, and 
operating procedures. 

The language specifications section describes the 
coding of a Fortran program. The content of this sec¬ 
tion is presented with the assumption that the pro¬ 
grammer is familiar with the information in the Fortran 
General Information Manual, Form F28-8074. 

The program specifications section describes the 
Fortran system. Included in the section are such topics 
as a description of the System Control Program (the 
controlling element of the Fortran system), a descrip¬ 
tion of the Fortran Processor Program, and a detailed 
description of the results of system operations. Al¬ 
though this section is directed primarily to the pro¬ 
grammer, the machine operator should review the 
section for an understanding of the system. 

The third section, operating procedures, contains 
such topics as preparing processor jobs, changing file 
assignments for processor jobs, and running processor 
jobs. The last part of the section outlines the proce¬ 
dures to follow in building a Fortran system. For the 
convenience of both programmer and machine op¬ 
erator, all control cards are summarized in Appendix 1. 

While the third section is directed primarily to the 
machine operator, it is recommended that the pro¬ 
grammer review the content of the complete section. 
The programmer should particularly note the parts of 
the section dealing with preparing processor jobs and 
changing file assignments. 

Related Information 

The following Systems Reference Library publica¬ 
tions contain additional information relating to the use 
of the Fortran system. It is recommended that these 
publications be available to the user for reference 
purposes. 

Fortran General Information Manual, Form F28- 
8074. 

Disk Utility Programs Specifications for IBM 1401, 
1440, and 1460 (with 1301 and 1311), Form C24-1484. 

Disk Utility Programs Operating Procedures for 
IBM 1401 and 1460 (with 1301 and 1311), Form C24- 


3105, or Disk Utility Programs Operating Procedures 
for IBM 1440 (with 1301 and 1311), Form C24-3121. 

Definitions of Key Terms 

In order to clarify the meaning of special terms when 
used in this publication, the following definitions are 
given. Standard terms are defined in Glossary of In¬ 
formation Processing, Form C20-8089. 

Batched Files. Logical files whose contents represent 
one or more sequential sets of input to or output 
from the Fortran system. 

Card Boot. A card deck, supplied as part of the Fortran 
system program deck, that is used to start system 
operations. 

Compiler. The program that translates Fortran sym¬ 
bolic statements directly into relocatable machine 
language. This process is called a compilation. 

Job. An operation or sequence of operations that are 
to be performed by the Fortran system. 

Logical Files. Input/output devices and/or areas that 
are used by the Fortran system. 

Object-time. A term describing those elements or proc¬ 
esses related to the execution of a machine-language 
object program. 

Operation. A basic unit of work to be performed by 
one of the components of the system. 

Stack. A set of one or more jobs that is to be proc¬ 
essed during the same machine run. 

System. The set of programs made up of the elements 
required for compiling and/or executing user-pro¬ 
grams. 

[ ] Brackets contain an option that may be chosen. 

| | Braces contain options, one of which must be 
chosen. 

Machine Requirements 

To process a Fortran source program, the following 
minimum machine configurations are specified. 

An ibm 1401 system with: 

8,000 positions of core storage 
Advanced-Programming feature 
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High-Low-Equal-Compare feature 
One ibm 1311 Disk Storage Drive, or four ibm 729 
Magnetic Tape Units, or four ibm 7330 Magnetic 
Tape Units , or a combination of four ibm 729 
Magnetic Tape Units and ibm 7330 Magnetic 
Tape Units 

One ibm 1402 Card Read-Punch 
One ibm 1403 Printer 

An ibm 1440 system with: 

8,000 positions of core storage 
Indexing-and-Store-Address-Register feature 
One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive 
One ibm 1442 Card Reader 
One ibm 1443 Printer 

An ibm 1460 system with: 

8,000 positions of core storage 
Indexing-and-Store-Address-Register feature 
One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive, or four ibm 729 Magnetic Tape 
Units, or four ibm 7330 Magnetic Tape Units, or a 
combination of four ibm 729 Magnetic Tape Units 
and ibm 7330 Magnetic Tape Units 
One ibm 1402 Card Read-Punch 
One ibm 1403 Printer 

To load and execute object programs generated by 
the Fortran system, the following minimum machine 
requirements are specified. 

An ibm 1401 system with: 

8,000 positions of core storage (or more if required 
by the object program) 

Advanced-Programming feature 
High-Low-Equal-Compare feature 
One ibm 1311 Disk Storage Drive, or one ibm 729 
Magnetic Tape Unit, or one ibm 7330 Magnetic 
Tape Unit (for residence of the Fortran system, 
including the library of the relocatable subpro¬ 
grams) 

One ibm 1402 Card Read-Punch 
One ibm 1403 Printer 

Sense switches, if required by the object program 
A program loading device, which could be an ibm 
1402 Card Read-Punch (the same as previously 
required), an ibm 1311 Disk Storage Drive (may 
be the same as that required for system residence), 
an ibm 729 Magnetic Tape Unit (must not be the 
same unit as that required for system residence), 
or an ibm 7330 Magnetic Tape Unit (must not be 


the same unit as that required for system resi¬ 
dence) 

Additional input/output devices as required by the 
object program 

An ibm 1440 system with: 

8,000 positions of core storage (or more if required 
by the object program) 
Indexing-and-Store-Address-Register feature 
One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive (for residence of the Fortran sys¬ 
tem, including the library of the relocatable sub¬ 
programs) 

One ibm 1442 Card Reader 
One ibm 1443 Printer 

Sense switches, if required by the object program 
A program loading device, which could be an ibm 
1442 Card Reader (the same as previously re¬ 
quired), an ibm 1301 Disk Storage or an ibm 1311 
Disk Storage Drive (may be the same as that re¬ 
quired for system residence) 

Additional input/output devices as required by the 
object program 

An ibm 1460 system with: 

8,000 positions of core storage (or more if required 
by the object program) 
Indexing-and-Store-Address-Register feature 
One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive, or one ibm 729 Magnetic Tape 
Unit, or one ibm 7330 Magnetic Tape Unit (for 
residence of the Fortran system, including the li¬ 
brary of the relocatable subprograms) 

One ibm 1402 Card Read-Punch 
One ibm 1403 Printer 

Sense switches, if required by the object program 
A program loading device, which could be an ibm 
1402 Card Read-Punch (the same as previously re¬ 
quired), or an ibm 1301 Disk Storage or an ibm 
1311 Disk Storage Drive (may be the same as that 
required for system residence), or an ibm 729 Mag¬ 
netic Tape Unit (must not be the same unit as that 
required for system residence), or an ibm 7330 
Magnetic Tape Unit (must not be the same unit 
as that required for system residence) 

Additional input/output devices as required by the 
object program 

The Fortran system can use the following devices, 
if available. 

ibm 1444 Card Punch 

ibm 1447 Console without a buffer feature 
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The 1401, 1440, and 1460 Fortran Programming System 
consists of a language and its associated processor pro¬ 
gram. The Fortran language enables the programmer 
to code programs that deal with problems that are pri¬ 
marily mathematical in nature. Problems containing 
formulas and variables can be dealt with easily by us¬ 
ing the Fortran language. Facility is included with the 
disk resident Fortran system to process information 
from randomly accessible records. 

In addition to the main program, the user can code 
and use subprograms. These subprograms can be called 
for and used by the main program and/or other sub¬ 
programs. 

The Fortran language comprises five general cate¬ 
gories of statements. 

Arithmetic Statements. The arithmetic statements de¬ 
fine the value of a variable to be the result of a nu¬ 
merical or logical calculation. 

Control Statements. The control statements govern the 
flow of control in the program. 

Input/Output Statements. Input/output statements 
specify the transfer of information between the pro¬ 
gram environment, the main-computer storage, and 
the extra-program environment, input/output de¬ 
vices, such as a card reader, a card punch, a printer, 
a console printer, a magnetic tape unit, or a disk unit. 

Subprogram Statements. Subprogram statements per¬ 
mit the programmer to define subprograms for sub¬ 
sequent use. 

Specification Statements. Specification statements de¬ 
clare properties of names used in the program and 
permit the user to exert some control over the alloca¬ 
tion of core storage for program variables. 

Any of these statements can be assigned a statement 
number. To permit reference within one statement to 
another statement, the latter statement must be as¬ 
signed a statement number. Superfluous statement 
numbers will adversely affect compiling time. 

The Fortran processor translates (compiles) the pro¬ 
grams written in the Fortran language into machine- 
language object programs in the relocatable format. 
Object programs are then executed under control of 
the Fortran system. 


Constants, Variables, 

Subscripts, and Expressions 

This section describes constants, variables, and sub¬ 
scripts used to express 1-, 2-, and 3-dimensional arrays 
of variables. Also included in this section is a discus¬ 
sion of expressions, the combinations of constants, vari¬ 
ables, and function references. 


Constants 

Three types of constants are permitted in a Fortran 
source program: integer (fixed point), real (floating 
point), and logical. 

Integer Constants 

General Form. An integer constant consists of n deci¬ 
mal digits, where 1 n — k, written without a deci¬ 
mal point. 

Examples. 

1 

2 

524267 


Value of k 

The value of k (precision) can be indicated to the 
Fortran compiler through control information supplied 
by the user. If k is specified by the user, the value of k 
must be l^k — 20. If k is not specified by the user, 
the compiler uses k equal to five digits. If more than k 
digits are written, only the leftmost k digits are used 
by the compiler. 

The absolute value of an integer constant must be 
between 0 and (10 k — 1). 

Real Constants 

General Form. A real constant consists of n decimal 
digits, where 1 n /, written with a decimal 
point. A real constant can be followed by a deci¬ 
mal exponent written as the letter E followed by a 
(signed or unsigned) 1- or 2-digit integer constant. 
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Examples. 

17. 

5.0 

.0003 

5.0E3 i.e., 5.0 X 10 3 

5.0E+3 i.e., 5.0 X 10+ 3 

5.0E—3 i.e., 5.0 X 10- 3 

Value of f 

The value of / (precision) can be indicated to the 
Fortran compiler through control information supplied 
by the user. If f is specified by the user, the value of f 
must be 2 ^ 20. If / is not specified by the user, 

the compiler uses f equal to eight digits. If real con¬ 
stants contain more than f digits, only a maximum of f 
significant high-order digits are used. 

The absolute value of a real constant must be be¬ 
tween the limits 10— 100 and (1 — 10— f ) X 10 !)O , or be 
zero. 

Within core storage, a real constant is stored in an 
exponential form occupying n + 2 digits (n + 2 core 
storage positions), where n — f. The first n digits con¬ 
tain the mantissa (the fraction part of the constant). A 
decimal point is understood to precede the high-order 
digit position. The last two positions contain the char¬ 
acteristic (exponent). For example, if f is defined as 18, 
a number in the source program having 18 or more sig¬ 
nificant digits results in a 20-digit real number, 18 for 
the mantissa and 2 for the characteristic. If the con¬ 
stant contains 13 significant digits, and f is defined as 
18, the internal core storage representation will be a 
15-digit real number, 13 for the mantissa and 2 for the 
characteristic. 

Logical Constants 

General Form. A logical constant can take either of the 

following forms. 

.TRUE. 

. FALSE . 


Variables 

A variable quantity is represented by a symbolic name, 
and is specified by its name and its type. The type of 
variable (integer, real, or logical) corresponds to the 
type (integer, real, or logical) of values that the vari¬ 
able assumes. 

Variable Names 

General Form. A variable name consists of one to six 
alphameric characters, the first of which must be 


alphabetic. Subroutines and functions are named in 
the same way as variables (see Naming Subpro¬ 
grams). Within the same program, a unique name 
must be used to represent a variable, a subroutine, 
and/or a function. 

Examples. 

L5 

JOB1 

BETATS 

COST 

K 


Variable Types 

The type of variable, real or integer, can be specified 
explicitly by a type statement or implicitly by name. 
Logical variables must have their type specified by a 
type statement. 

Explicit Type Specification 

Explicit type specification of a real or integer variable 
is made by the type statements, integer, real, logical, 
and external. See Type Statements and Naming Sub¬ 
programs. 

Implicit Type Specification 

Implicit type specification of a real or integer variable 
is made in the following manner. 

1. If the first character of the variable name is I, J, K, 
L, M, or N, it is an integer variable. For example, 
max, job, idist, and lesl are integer variables. 

2. If the first character of the variable name is not I, J, 
K, L, M, or N, it is a real variable. For example, 
alpha, bmax, q, and whit are real variables. 

Explicit type specification overrides implicit type spec¬ 
ification. For example, if a variable name is job and a 
type statement specifies that this variable be real, the 
variable is treated as a real variable even though it im¬ 
plicitly has the form of an integer variable. 


Subscripts 

A variable can be made to represent any element of a 
1-, 2-, or 3-dimensional array of quantities by append¬ 
ing one, two, or three subscripts, respectively, to the 
variable name. The variable is then called a sub¬ 
scripted variable. The subscripts are expressions of a 
special form whose value determines the element of 
the array to which reference is made. 



i 
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Form of Subscripts 

General Form. A subscript can take only one of the 
following forms: 

V 

C 

v + c 
v-c 

C * V 
C* V + C' 

C * V - C' 

where V represents any unsigned nonsubscripted in¬ 
teger variable, C and C' represent any unsigned 
integer constant, and -f- denotes addition, — denotes 
subtraction, and * denotes multiplication. 

A variable in a subscript cannot be subscripted. 

Examples. 

J 

3 

1 + 3 
K- 1 

4 * L 

2 * M + 5 

3 * M — 4 

Subscripted Variables 

General Form. A subscripted variable consists of a 
variable name followed by parentheses enclosing 
one, two, or three subscripts separated by commas. 

Examples. 

A (I) 

K (3) 

BETA (8 * J + 2, K - 2, L) 

MAX (I, J, K) 

Subscripted variables must conform to the following. 

1. Each variable that appears in subscripted form must 
have the size of the array specified preceding the 
first appearance of the subscripted variable in an 
executable statement or data statement. Array sizes 
are specified by using a dimension statement or a 
common statement. 

2. The order and number of the subscript expressions 
must correspond to the order and number of the de¬ 
clared dimensions. 


+ , *, / 

Real 

Integer 

Logical 

Real 

Valid 

Invalid 

Invalid 

Integer 

Invalid 

Valid 

Inval id 

Logical 

Invalid 

Invalid 

Invalid 


Figure 1. Arithmetic Operators 


3. During execution, variable subscripts are evaluated 
so that the subscripted variable refers to a specific 
member of the array. 

Arrangement of Arrays in Core Storage 

Arrays are placed in core storage in column order, in 
order of decreasing core-storage addresses. 

One-dimensional arrays are stored sequentially. 
Two-dimensional arrays are stored sequentially by 
column. 

Three-dimensional arrays are stored sequentially by 
column from plane to plane. (The first subscript is 
cycled most rapidly, and the last least rapidly.) 

For example, the array whose last element is A(3,5) 
appears in core storage as: 

A(3,5),A(2,5),A(1,5),A(3,4),. . . , A(3,1),A(2,1),A(1,1) 

Note that A(l,l) is in the high core-storage position, 
and A(3,5) is in the low core-storage position. 

Expressions 

The Fortran language includes two kinds of expres¬ 
sions, arithmetic expressions and logical expressions. 

Arithmetic Expressions 

An arithmetic expression consists of sequences of con¬ 
stants, subscripted or nonsubscripted variables, and 
arithmetic function references, separated by arithmetic 
symbols, commas, and parentheses. The arithmetic op¬ 
eration symbols and their meaning follow. 

Symbol Meaning 

+ Addition 

— Subtraction 

* Multiplication 

/ Division 

* * Exponentiation 

The following rules must be followed in constructing 
arithmetic expressions. 

1. Figures 1 and 2 indicate which constants, variables, 
and functions can be combined by the arithmetic 


** 

Exponent 

Real 


Logical 

Base 

Real 

Val id 

Valid 

Inval id 

Integer 

Inval id 

Valid 

Invalid 

Logical 

Inval id 

Inval id 

In val id 


Figure 2. Exponentiation 
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operators to form arithmetic expressions. Figure 1 
gives the valid combinations with respect to the 
arithmetic operators +, —, *, and /. Figure 2 gives 
the valid combinations with respect to the arith¬ 
metic operator **. 

2. Parentheses can be used, as in algebra, to group ex¬ 
pressions, indicate the order of operations, and 
make interpretation easier for the user. 

3. Expressions can be connected by arithmetic opera¬ 
tion symbols to form other expressions, provided 
that: 

a. No two operators appear in sequence, and 

b. No operation symbol is assumed to be present. 
Parentheses are not assumed to be present. Mul¬ 
tiplication cannot be implied. For example, the 
expression A**B**C is not permitted. It must be 
written as either A**(B**C) or (A**B)**C, 
whichever is intended. 


Examples. In the following examples, implicit type 
specification is assumed. 


A + B 

(Valid) 

A + 2 

(Invalid — an integer constant cannot be added to 
a real variable) 

A+ 2. 

(Valid) 

A + 2.0 

(Valid) 

I * J 

(Valid) 

I * A 

(Invalid — a real variable cannot be multiplied by 
an integer variable) 

A * B 

(Valid) 

A * I 

(Invalid — an integer variable cannot be multiplied 
by a real variable) 

A ** 2.0 

(Valid) 

A ** 2 

(Valid) 

I ** 2.0 

(Invalid — an integer variable cannot be raised to 
a real constant power) 

1**2 

(Valid) 


Preceding an expression by a + or — sign does not 
affect the type of the expression. 


Exponentiation is defined as follows: 

1. Given: A**I, where A is an integer variable or a 
real variable and I is an integer variable. 

If I > 0, then A**I = A*A* . . . *A, (I factors). Re¬ 
sult is the same type variable as A. 

If I — 0 and if A = 7 ^ 0, then A**I = 1. Result is the 
same type variable as A. 

If I = 0 and if A = 0, then A**I = undefined. 

If I<0 and if A ^ 0, A**I = 

1 

A*A*. . . *A, (|I| factors) 

Result is a real variable. 

If I < 0 and if A = 0, then A**I = undefined. 


2. Given: A**R, where A is a real variable and R is a 
real variable. 

If A > 0, then A**R = EXP(R*ALOG(A)). Result 
is a real variable. 

If A = 0 and if R > 0, then A**R = 0. Result is a 
real variable. 

If A = 0 and if R ^ 0, then A**R = undefined. 

If A < 0, then A**R = undefined. 

Order of Operations 

Parentheses can be used, as in algebra, in expressions 
to specify the order in which the expression is to be 
evaluated. Expressions are evaluated from left to right. 
Where parentheses are omitted, the order of computa¬ 
tion is as follows. 

1. Function computation and substitution. 

2. Exponentiation 

3. Multiplication and division. 

4. Addition and subtraction. 

For example, the expression A -f- B/C —D**E*F — G 
will be interpreted A -f- (B/C) — (D E * F) — G and 
will be evaluated in order from left to right. 

Logical Expressions 

A logical expression consists of certain sequences of 
logical constants, logical variables, references to logical 
functions, and arithmetic expressions separated by 
logical operators or relational operators. A logical ex¬ 
pression always has the value .true, or .false. . 

The logical operators (where a and b are logical 
expressions) are: 

Operator Definition 

.not. a This has the value .true, only if a is .false. ; 

it has the value .false, only if a is .true. . 
a.AND.b This has the value .true, only if a and b are 
both .true. ; it has the value .false, if either 
a or b is .false. . 

a.OR.b (Inclusive or) This has the value .true, if either 

a or b is .true. ; it has the value .false, only 
if both a and b are .false. . 

The logical operators .not. , .and. , and .or. must al¬ 
ways include the preceding and following periods. 


Examples. 


Z .OR. X 

X . AND. .NOT. Y 

The relational operators are: 

Operator 

Definition 

.GT. 

Greater than (>) 

.GE. 

Greater than or equal to (>) 

.LT. 

Less than (<) 

.LE. 

Less than or equal to (<) 

.EQ. 

Equal to (=) 

.NE. 

Not equal to (^=) 
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• GT., .GE., .LT., 

• LE., .EQ., .NE. 

Real 

Integer 

Logical 

Real 

Valid 

Invalid 

Invalid 

Integer 

Invalid 

Valid 

Invalid 

Logical 

Invalid 

Invalid 

Invalid 


The Arithmetic Statement 

The arithmetic statement defines a numerical or logical 
calculation. A Fortran arithmetic statement closely re¬ 
sembles a conventional arithmetic or algebraic for¬ 
mula, except that the equal sign specifies replacement 
rather than equality. 


Figure 3. Relational Operators 

The relational operators must always include the 
preceding and following periods. 


General Form, a = b 

a is a real, integer, or logical variable that may be 
subscripted. 

b is an expression. 


Examples. 

.NOT. C .EQ. Z 
A .GT. B .OR. C .LE. B 

The following are the rules for constructing logical 

expressions: 

1. Figure 3 indicates which constants, variables, and 
functions can be combined by the relational opera¬ 
tors to form a valid logical expression. The logical 
expression will have the value .true, if the condition 
expressed by the relational operator is met. Other¬ 
wise, the logical expression will have the value 
.false. . 

2. A logical expression may also consist of a single 
logical constant, a logical variable, or a reference to 
a logical function. 

3. The logical operator .not. must be followed by a 
logical expression, and the logical operators .and. 
and .or. must be preceded and followed by logical 
expressions to form more complex logical expres¬ 
sions. 

4. Any logical expression may be enclosed in paren¬ 
theses. However, the logical expression to which the 
.not. applies must be enclosed in parentheses if it 
contains two or more quantities. 


Order of Operations 

Parentheses can be used in logical expressions to spec¬ 
ify the order in which the expression is to be evaluated. 
Where parentheses are omitted, the order is under¬ 
stood to be as follows: 

1. Function computation and substitution. 

2. Exponentiation. 

3. Multiplication and division. 

4. Addition and subtraction. 

5. .LT. , .LE. , .EQ. , .NE. , .GT. , .GE. 

6. .NOT. 

7. .AND. 

8. .OR. 


Examples. 


A = B + (C - 3. 0) *D 
A (I) = B (I) + SIN (C (I) ) 

V = .TRUE. 

E = C.GT.D.AND.F.LE.G 

Figure 4 indicates the types of expressions and vari¬ 
ables that can be equated to result in valid arithmetic 
statements. 

In the following examples of arithmetic statements, 
1 is an integer variable, A and B are real variables, and 
C, D, and E are logical variables. 


Statement 


Definition 


A — B 
I — B 

A — I 


1 = 1+1 
A = 3 * B 


C = .TRUE. 
D = .NOT. C 


D = I.GE.A 


Replace A by the current value of B. 
Truncate B to an integer, convert it to 
an integer constant, and store it in I. 
Convert I to a real variable and store 
it in A. 

Add 1 to I, and store it in I. 

Not permitted. The expression is mixed 
for multiplication; that is, it contains 
both a real variable and an integer 
constant. 

Store the logical constant .true, in C. 
If C is .true. , store the value .false. 
in D. If C is .false. , store the value 
.true, in D. 

Not permitted. An integer and a real 
variable may not be joined by a rela¬ 
tional operator. 


Right Side of Equal Sign 

\ Expression 




Variable \ 

Rea 1 

Integer 

Logical 

Real 

Valid 

Valid 

Invalid 

Integer 

Valid 

Valid 

Invalid 

Logical 

Invalid 

Invalid 

Val id 


Figure 4. Valid Combinations of Variables and 
Expressions 
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C = D.OR. .NOT.E 


D 

E 

~E 

DV~E 

T 

T 

F 

T 

T 

F 

T 

T 

F 

T 

F 

F 

F 

F 

T 

T 


where: ~ implies .not. , and V implies .or. . 

c = 3. .gt.b C is .true, if 3. is greater than B; C is 

.false, otherwise. 

The last two examples illustrate the following rules: 

1. Two logical operators can appear in sequence only 
if the second logical operator is .not. . 

2. Two periods may appear in succession as in c = 
d.or..not.e or when one belongs to a constant and 
the other to a relational operator. 


The Control Statements 

The nine control statements enable the programmer to 
control and terminate the flow of his program. Transfer 
of control must be to an executable statement. 

The Unconditional GO TO Statement 

General Form, go to n 

n is a statement number of an executable statement. 

This statement causes control to be transferred to 
the statement numbered n. 

Example. 

GO TO 25 

This statement causes control to be transferred to 
statement numbered 25. 

The Computed GO TO Statement 

General Form, go to (n u n 2 ,. .. ,n m ),i 

ru, rii, ..., rim are statement numbers of executable state¬ 
ments. 

The limits of the value m are 1 < m < 9. 
i is a nonsubscripted integer variable. 

The limits of the value i are 1 < i < 9. 

This statement causes control to be transferred to 
the statement numbered n 1 ,n 2 ,...,n m depending on 
whether the value of i is 1,2,. . . , m, respectively, at the 
time of execution. 

Example. 

GO TO (30, 45, 50, 9), K 


In the example, if K is equal to 3 at the time of exe¬ 
cution, the program will transfer control to the third 
statement in the list, statement 50. 

The Logical IF Statement 

General Form, if (t) s 

t is a logical expression. 

s is any executable statement except do, an arithmetic if, 
or another logical if. 

If the logical expression t is true, statement s is exe¬ 
cuted. Control then transfers to the next sequential 
executable statement, unless s is a go to statement, in 
which case control is transferred as indicated. 

If t is false, control transfers to the next sequential 
statement. 

If t is true and s is a call statement, control transfers 
to the next sequential executable statement on return 
from the subprogram called. 

Examples. 

IF (A .AND. B) F = SIN (R) 

IF (16 .GT. L) GO TO 24 

IF (D .OR. X .LE. Y) GO TO (18, 20), I 

IF (Q) CALL SUB (Q) 

The Arithmetic IF Statement 

General Form, if (a) n u n 2 , n 3 

a is an arithmetic expression, type integer or type real. 
n h rii, rij are statement numbers of executable statements. 

The arithmetic if statement is used to transfer con¬ 
trol to one of three specified statements depending on 
the value of an arithmetic expression. The arithmetic 
statement a is tested. If a is less than zero, control 
transfers to statement n 3 . If a is equal to zero, (plus or 
minus), control transfers to statement n 2 . If a is greater 
than zero, control transfers to n, : . 

Examples. 

IF (A(J, K) - B) 10, 4, 30 
IF (D*E + BRN) 9, 9, 15 

The DO Statement 

General Form, do n i = m 1 ,m 2 ,m 3 

n is a statement number of an executable statement. 
i is a nonsubscripted integer variable. 

mi , mi , m 3 are each either unsigned integer constants or 
nonsubscripted integer variables. 

m$ is optional. If m 3 is not stated, its value is assumed to 
be 1. If it is omitted, the preceding comma must also be 
omitted. 

Examples. 

DO 30 I = 1, M, 2 
DO 24 I = 1, 10 
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The do statement is an instruction to execute re¬ 
peatedly the statements that follow, up to and in¬ 
cluding the statement numbered n. The first time the 
statements are executed, i has the value rrij and each 
succeeding time i is increased by the value of m 3 . After 
the statements have been executed with i equal to the 
highest value that does not exceed m 2 , control passes 
to the executable statement following statement num¬ 
ber n. This is called the normal exit from the do state¬ 
ment. 

The Range of the DO Statement. The range of the do 
statement is that set of statements that will be exe¬ 
cuted repeatedly. That is, it is the sequence of state¬ 
ments immediately following the do statement, up to 
and including the statement numbered n. After the 
last execution in the range, the do is said to be satisfied. 

The Index of the DO Statement. The index of the do 
statement is the integer variable i. Throughout the 
range of the do, the index is available for computation, 
either as an ordinary integer or as the variable of a sub¬ 
script. After a normal exit from a do, the index i must 
be redefined before it is used in computation. After 
exiting from a do by transferring out of the range of 
the do, the index i is available for computation and is 
equal to the last value it attained. 

DOs Within DOs. A do statement can be contained 
within another do statement. This is called a nest of 
dos. If the range of a do contains another do, then all 
statements in the range of the enclosed do must be 
within the range of the enclosing do. The maximum 
depth of nesting, not including implied do's in I/O 
lists, is twelve. That is, a do can contain a second do, 
the second can contain a third, the third can contain 
a fourth, and so on up to twelve statements. 

Transfer of Control. Control cannot be transferred 
into the range of a do from outside its range. However, 
control can be transferred out of a do range. In this 
case, the value of the index remains available for use. 
If the exit is transferred out of the range of a set of 
nested do's, then the index of each do is available. 

Figure 5 illustrates the possible transfers in an out of 
the range of a do. In the figure, 1, 2, and 3 are per¬ 
mitted, but 4, 5, and 6 are not permitted. 

Restrictions on Statements in the Range of a DO. 
Any statement that redefines the index or any of the 
indexing parameters (ms) is not permitted in the range 
of a do. 

The range of a do cannot end with a go to type 
statement or another do. The range of a do can end 
with a logical if, in which case control is handled in 


the following manner. If the logical expression t is 
false, the do is repeated. If the logical expression t is 
true, statement s is executed and then the do is re¬ 
peated. If t is true and s is a transfer type statement, 
control is transferred as indicated by s. 

When a .reference to a subprogram is made in the 
range of a do, care must be taken that the called sub¬ 
program does not alter the index or any of the indexing 
parameters. 

The CONTINUE Statement 

General Form, continue 

continue is a dummy statement that does not pro¬ 
duce any executable instructions. It is most frequently 
used as the last statement in the range of a do to pro¬ 
duce a branch address for go to statements that are in¬ 
tended to begin another repetition of the do range. 

Example. 


DO 20 1 = 2, N 

IF (BIGA .LT. A (I) )BIGA = A (I) 
20 CONTINUE 


The PAUSE Statement 

General Form, pause or pause n 

n is an unsigned integer constant of one to three digits. 


DO 



Figure 5. Nest of do’s 
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The statement causes the machine to halt. The in¬ 
teger constant n is in the B-address register. If n is not 
specified, it is assumed to be zero. When the machine is 
restarted by pressing the start key, the next Fortran 
statement is executed. 

The STOP Statement 

General Form, stop 

The stop statement terminates the execution of the 
program and returns control to the System Control 
Program, the controlling element of the Fortran sys¬ 
tem. The program can have any number of stop state¬ 
ments. No numbers are used in the stop statement. 

The END Statement 

General Form, end 

The end statement defines the end of a program or a 
subprogram. Physically, it must be the last statement 
of each program or subprogram. As the end statement 
is not executable, it must not be encountered in the 
flow of the program. 


Input/Output Statements 

The input/output (I/O) statements control the trans¬ 
mission of data between the computer and input/ 
output devices, such as card readers, card punches, 
printers, magnetic tape units, and disk units. The I/O 
statements fall into one of the following general cate¬ 
gories. 

FORMAT Statements, format statements are non¬ 
executable statements that specify the external ar¬ 
rangement of the edited information to be trans¬ 
ferred and the editing transformation between 
internal (core storage) and external forms of the in¬ 
formation. format statements are used in conjunc¬ 
tion with the general I/O statements. 

General I/O Statements. The general I/O statements 
read and write cause the transmission of informa¬ 
tion between core storage and the logical file that is 
assigned to an input/output device. (For a descrip¬ 
tion of logical files, see Logical Files.) 

If these statements refer to format specification 
statements, then the information is edited and the 
I/O statements are called edited I/O statements. 
Otherwise, the I/O statements are called unedited 
I/O statements. 


Manipulative I/O Statements. The statements end 
file, rewind, find, and backspace manipulate the 
input/output device to which a specific logical file is 
assigned. 

I/O Specification Statement. The define file state¬ 
ment defines the size and characteristics of logical 
files that are assigned to disk units to be accessed 
randomly. 


List Specifications 

The general I/O statements cause the transmission of 
data. They must include a list of the items to be trans¬ 
mitted. 

An I/O list is a series of list items that are separated 
by commas. A single list item can be a subscripted or 
non-subscripted variable. A constant can appear in an 
I/O list only as a subscript or as an indexing parameter. 
An I/O list is read from left to right. 

An I/O list is ordered. The order must be the same 
as the order in which the input exists in the input 
medium, or in which the output is to exist in the output 
medium. 

An I/O list can contain implied do’s. A comma must 
precede the index variable, rather than do n i as in the 
do statement. All items to be included in the range of 
the implied do and the indexing information must be 
set off by parentheses. Implied do’s can be nested to a 
nesting depth of three by placing matching parentheses 
around the first and last items of each successive inner 
do range. Redundant parentheses are not allowed. 

Consider this I/O list. 

M, (Q(I), I = 1, 10) 

This implies that the information in the external in¬ 
put and/or output medium is arranged in the following 
order. 

M, Q(l), Q(2),.. ., Q(10) 

Consider this I/O list. 

A, B(3), (C(I), D(I, K), I = 1, 10), 

((E(I, J), I = 1, 10, 2), F (J, 3), J = 1, K) 

This implies that the information in the external in¬ 
put and/or output medium is arranged in the following 
order. 

A, B(3), C(l), D(l, K), C(2), D(2, K), 

. . . , C(10), D(10, K), 

E(l, 1), E(3, 1), . . . , E(9, 1), F(l, 3), 

E(l, 2), E(3, 2), . . . , E(9, 2), F(2, 3), 


E(l, K), E(3, K), . . ., E(9, K), F(K, 3) 
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An I/O list containing parentheses is executed in a 
manner similar to the execution of a do loop. The left 
parenthesis (except subscripting parentheses) is treated 
as though it were a do statement, with the indexing in¬ 
formation given immediately before the matching right 
parenthesis. The do range extends up to the indexing 
information. The order of the I/O list shown in the 
first example can be considered equivalent to the fol¬ 
lowing steps. 

M 

DO 1 1 = 1, 10 

1 Q (I) 

The order of the I/O list shown in the second ex¬ 
ample can be considered equivalent to the following 
steps. 

A 

B (3) 

DO 5 I = 1,10 | 

C (I) } (C(I), D(I, K), I = 1, 10) 

5 D (I, K) 

DO 9 J = 1, K 

DO 81 = 1, 10, 2 

8 E (I, J) 

9 F (J, 3) 

In the preceding paragraph, the list item (C(I), 
D(I,K),I = 1, 10) is an implied do. It is evaluated as 
shown. The range of an implied do must be clearly 
defined by parentheses. 

For a list in the form K, A(K) or K,(A(I),I = 1,K), 
where the definition of an index or an indexing parame¬ 
ter appears in the list of an input statement earlier than 
the use of the index or indexing parameter, the index¬ 
ing will be carried out with the newly read-in value. 
(This feature is not applicable for a name list in a data 
statement.) 

Any number of items can appear in a single list. If 
the list is in an edited statement, the format of each 
data value must be the same as specified in a corre¬ 
sponding format statement. Essentially, the I/O list 
controls the number of the data values read or written. 
If the corresponding format statement indicates more 
data values are to be transmitted than there are items 
on the list, only the number of data values indicated 
on the list are transmitted. All remaining data values 
are ignored. If a list contains more items than there are 
data values on one edited input record, additional rec¬ 
ords are read. When a read operation is performed, a 
list must not contain more items than data values in 
one unedited input record. 

A list can include no items only if the data to be 
transferred is entirely specified in a format statement. 


Reading or Writing Entire Arrays 

When the reading or writing of an entire array is re¬ 
quired, an abbreviated notation can be used in the list 
of the input/output statement. Only the name of the 
array need be given, and subscripts can be omitted. 

If A has previously been listed in a dimension or 
common (with dimensions) statement, either the state¬ 
ment 

READ (5, 10) A or READ (3) A 

is sufficient to cause all the elements of array A to be 
read in the implied order of elements. If A is a 2 X 3 
array, the elements are read into core storage in the 
following order. 

A(1,1),A(2,1),A(1,2),A(2,2),A(1,3),A(2,3) 

The FORMAT Statement 

General Form, format (S 1} S 2 ,. .., S w /S' i? S' 2 ,.. ., 
S' w /. . .) Each field, S i} is a format specification. 

Example. 

FORMAT (I2/(E12.4,F10.2)) 

The edited input/output statements require, in addi¬ 
tion to a list of items to be transmitted, reference to a 
format statement that describes the edited data rec¬ 
ord and the type of conversion to be performed be¬ 
tween the internal machine language representation 
and the external representation for each item in the 
list. 

format statements are not executed. They need not 
appear in any special place within the program. Each 
format statement must be given a statement number. 

The format statement indicates the maximum size 
of each edited record to be transmitted. Except when 
a format statement consists entirely of H- or X-con- 
version fields, it is used in conjunction with the list of 
some particular input/output statement. Control in the 
object program switches back and forth between the 
list (which specifies whether data remains to be trans¬ 
mitted) and the format statement (which gives the 
specifications for transmission of that data). 

Edited data records must consist of one of the fol¬ 
lowing: 

1. A tape or disk record with a maximum length that 
corresponds to the number of print positions on the 
printer or console printer being used. On tape, 200- 
character records are written. The data records, 
specified by a format statement, begin in charac¬ 
ter position one. All unused characters are left 
blank. On disk, either one or two sectors is used, 
depending on whether the record is defined to be 
greater or less than 100 characters. 


((E (I, J), 1 = 1, 10, 2), F (J, 3),J = 1,K) 
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2. A punched card record with a maximum of eighty 
characters. 

3. A line to be printed on-line with a maximum of 100, 
120, 132, or 144 print positions, depending on the 
printer being used. 

The first left parenthesis begins a record. In a read 
operation, the record is read. In a write operation, the 
output record is begun, but not written. 

A slash ends the current record and begins a new 
record. In a read operation a slash means that no more 
information is obtained from the last record that was 
read. In a write operation, the output that has been 
developed is written, even though the output record is 
blank, as when two slashes are adjacent. 

The final right parenthesis of the format statement 
terminates the current record in the same manner as a 
slash. If list items remain to be processed, it also begins 
a new record and repeats. A repeat starts with the last 
repetitive group including the repeater, if there is one. 
Otherwise it starts with the specification following the 
first parenthesis of the format statement. 

During input/output operations, the object program 
scans the format statement to which a specific input/ 
output statement refers. When a specification for a 
numerical, logical, or alphameric field is found and list 
items remain to be transmitted, editing takes place ac¬ 
cording to the specification, and scanning of the for¬ 
mat statement resumes. If no list items remain when 
one of the preceding specifications or the final right 
parenthesis is processed, the current record and the 
execution of that particular input/output statement are 
ended. 


Format Specifications 

Numeric Fields 

Three types of specifications are available for numeric 
data. 

Internal Conversion Code External 

Real E Real with E exponent 

Real F Real without exponent 

Integer I Integer 

These types of conversion are specified in the fol¬ 

lowing forms. 

Ew.d 
F w.d 

I w 

E, F, and I specify the type of conversion. 

w is an unsigned integer constant specifying the field width 
of the data, including signs and the exponent part, if 
appropriate. This field width can be greater than that 


required for the actual digits to provide spacing pre¬ 
ceding the number. 

d is an unsigned integer constant or zero that represents 
the number of numerics in the field that appear to the 
right of the decimal point, d is ignored for input when 
a decimal point actually appears. The exponent part for 
E-conversion is not included in this number. 

For example, the statement FORMAT (1H1, 13, 
E12.4, F10.4) causes the following line to print after a 
skip to channel 1 (when given in conjunction with a 
write statement). 

_l_ —(_ — — 

Stored data 00027 9320963102 7634352602 

Field specifications 13 E12.4, F10.4 

Printed line b27b-0.9321Eb02bbb-0.0076 

where b indicates a blank. 

Specifications for successive fields are separated by 
commas. Specification of more characters than are per¬ 
mitted for the appropriate input/output record cannot 
be given. Thus, a format for a record to be printed 
should not provide for more characters (including 
blanks) than can be handled by the printer. 

Information to be transmitted with E- and F-conver- 
sion must be of type real. Information to be transmitted 
with I-conversion must be of type integer. 

The field width tv for I-conversion output must in¬ 
clude a space for the sign. 

The field width tv for F-conversion output must in¬ 
clude a space for the sign, a space for the decimal point 
(optional for input), and a space for a possible zero 
that precedes the decimal if the absolute value of the 
number is less than one. Thus, tv ^ d + 3. 

The field width tv for E-conversion output must in¬ 
clude a space for the sign, a space for the decimal point 
(optional for input), and a space for a possible zero 
that precedes the decimal if the absolute value of the 
number is less than one, and four spaces for the E, ex¬ 
ponent sign, and exponent. Thus, to ^ d + 7. 

The exponent that can be used with E-conversion is 
the power of 10 by which the number must be multi¬ 
plied to get its true value. The exponent is written with 
an E followed by a minus sign if the exponent is nega¬ 
tive, or a plus sign or a blank if the exponent is positive, 
and then followed by the exponent. The exponent can 
be one of two numbers. For example, the value .002 
can be written as .2E-02. 

If a number converted by I-, E-, and F-conversion 
on output requires more spaces than are allowed by 
the field width tv , an X is inserted in the low-order 
(rightmost) position. If the number requires less than 
tv spaces, the high-order spaces are filled with blanks. 
A space preceding a number output under I-, E-, or 
F-conversion indicates a positive value. The plus sign 
is not included, but tv must be sufficiently large to in¬ 
clude the blank or a minus sign. 


16 Fortran IV Specs & Op. Proc. — 1401 , 1440, 1460 



Logical Fields 

The specification Lw is used to transfer logical vari¬ 
ables. w is an unsigned integer constant that specifies 
the field width on the external medium. 

For input fields, T or F as the leftmost nonblank 
character in the field results in a value of .true, or 
.false, for the logical variable. A blank field results in 
a value of .false. . 

For output fields, T or F will appear right-justified in 
the field when the logical variable is .true, or .false. , 
respectively. 

Alphameric Fields 

Fortran provides two ways by which alphameric in¬ 
formation can be transmitted. The internal representa¬ 
tion is the same for both specifications. 

The specification Aw causes w characters to be read 
into or written from a core-storage location designated 
by a variable or an array name. 

The specification nH specifies that alphabetic in¬ 
formation is contained in a format statement. 

The basic difference between A- and H-conversion 
is that alphameric information handled by A-conver¬ 
sion is given a variable name or an array name. Thus, 
it can be referred to by the appropriate name for proc¬ 
essing and modification. The associated I/O statement 
therefore requires a list when A-conversion is specified 
by the format statement. 

Information handled by H-conversion is not labeled. 
It is a constant field and cannot be referred to or ma¬ 
nipulated in core storage in any way. 

A-Conversion 

The variable name to be converted by A-conversion 
must conform to the normal rules for naming Fortran 
variables. The variable name must be of type real. 

For input, nAw is interpreted to mean that the next 
n successive fields of w characters each are to be trans¬ 
mitted to core storage without conversion. If w is 
greater than / -f- 2 (f is the assigned real size), only the 
/ + 2 leftmost characters are significant. If w is less 
than f 2, the characters are right justified in the field, 
and the high-order positions in the field are filled with 
blanks. 

For output, nAw is interpreted to mean that the next 
n successive fields of w characters each are to be the 
result of transmission from core storage without con¬ 
version. If w is greater than / + 2 in each of the n 
fields, only / -f- 2 characters of output are transmitted, 
followed by w — (f + 2) blanks. If w is less than / + 2, 
the w rightmost characters of the field are transmitted. 


H-Conversion 

The specification nH is followed by n alphameric char¬ 
acters in a format statement. A comma separates suc¬ 
cessive specifications, including the H-conversion, used 
in the format statement. The separating comma ap¬ 
pears after the last alphameric character, which can be 
a blank. For example, 

.. . , 32HbTHISbISbALPHAMERICbINFORMATIONb,.. . 

Note that blanks are considered alphameric characters 
and must be included as part of the count n. 

The effect of nH depends on whether it is used with 
input or output. For input, n characters are extracted 
from the input record and replace the n characters of 
the appropriate source program statement. 

For output, the n characters following the specifica¬ 
tion, or the characters that replaced them, are written 
as part of the output record. 

Figure 6 shows an example of A- and H-conversion 
in a format statement. The statement FORMAT 
(4HbXY = ,F8.3,A8) could produce the lines shown in 
the figure, b indicates a blank character. 

Figure 6 assumes that there are steps in the source 
program that read the data bbSNSSWl, store this data 
in the word to be printed in the format A8 when sense 
switch 1 is on, and store eight blanks in the word when 
sense switch 1 is off. 


Blank Fields — X-Conversion 

The specification nX introduces n blank characters into 
an input/output record. The number n must always be 
less than or equal to the maximum record length. (The 
maximum record length depends upon the number of 
print positions available in the printer being used.) A 
comma separates successive specifications, including 
X-conversion, used in the format statement. 

For input, nX causes n characters in the input record 
to be skipped, regardless of what they actually are. 

For output, nX causes n blank characters to be intro¬ 
duced into the output record. 


XY = b-93.210bbbbbbbb 
XY = 9999.999bb S N S S W1 
XY = bb28.768bbbbbbbb 


Figure 6. Example of A- and H-Conversion 
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Repetition of Field Format 

It may be desirable to transfer n successive fields 
within the same record with the same format specifica¬ 
tion. This is specified by placing a number n, an un¬ 
signed integer constant, before E, F, I, L, or A. Thus, 
the field specification 3E12.4 is the same as E12.4, 
E12.4, E12.4. 

Repetition of Groups 

A repetitive group is an optional nonzero integer con¬ 
stant of not more than three digits followed by a left 
parenthesis, a specification list, and a right parenthesis. 
A repetitive group cannot contain a repetitive group. 
Thus, the specification FORMAT (2(F10.6,E10.2),I4) 
has the same effect as FORMAT (F10.6,E10.2,F10.6, 
E10.2,I4). 

Scale Factors — P-Conversion 

To permit general use of E- and F-conversion, a scale 
factor s followed by the letter P can precede the speci¬ 
fication. 

The scale factor is defined for F-conversion input as 
follows: 

10— s X external quantity = internal quantity 

The scale factor is defined for E- and F-conversion 
output as follows. 

external quantity = internal quantity X 10* 

For input, scale factors have effect only on F-con¬ 
version. For example, if input data is in the form 
XX.XXXX and it is desired to use it internally in the 
form .XXXXXX, the format specification to make this 
change is 2PF7.4. 

For output, scale factors can be used with both E- 
and F-conversion. For example, the statement FOR¬ 
MAT (I3,3F11.3) could give the following record. 
b27bbbb-93.209bbbbb-0.008bbbbbb0.554 

Using the same data and the statement FORMAT 
(I3,1P3F11.3) would give the following record. 

b27bbb-932.094bbbbb-0.076bbbbbb5.536 

Whereas, using the same data and the statement FOR¬ 
MAT (I3,-1P3F11.3) would give the following record. 
b27bbbbb-9.321bbbbb-0.001bbbbbb0.055 

A positive scale factor used for output with E-con¬ 
version increases the base and decreases the exponent. 
A negative scale factor used for output with E-conver¬ 
sion decreases the base and increases the exponent. 
Thus, using the same data and the statement FORMAT 
(I3,1P3E12.4) would give the following record. 
b27b-9.3209Eb01b-7.5804E-03bb5.5536E-01 


Whereas, using the same data and the statement FOR¬ 
MAT (I3,-1P3E12.4) would give the following record. 

b27b-0.0932Eb03b-0.0758E-01bb0.0555Eb01 

The scale factor is assumed to be zero if no value is 
given. However, once a value has been given, it holds 
for all E- and F-conversions following the scale factor 
within the same format statement. This applies to 
both single-record formats and multiple-record formats 
(see Multiple-Record FORMAT Specifications). Thus, 
the specification 

1PE10.4,E12.5,F8.3 

is equivalent to 

1PE10.4,1PE12.5,1PF8.3 

Once the scale factor is given, a subsequent scale factor 
of zero in the same format statement must be speci¬ 
fied by OP. Thus, if it is desired that only the first item 
in a specification be affected by P-conversion, the spec¬ 
ification should be written 

1PE10.4,0PE12.5,F8.3 

Scale factors have no effect on I-, A-, and L-conver- 
sion. 

Multiple-Record FORMAT Statements 

To deal with many output records, a single format 
statement can have several single-record format speci¬ 
fications separated by a slash (/) to indicate the begin¬ 
ning of a new record. For example, 

FORMAT(3F9.2,2F10.3/8E11.4) 

transfers the first, third, fifth,. . ., records with the 
specification 3F9.2,2F10.3; and the second, fourth, 
sixth,. . ., records with the specification 8E11.4. 

Two consecutive slashes (//) indicate a blank record. 
For example, 

FORMAT(3F9.2,2F10.3//I2//) 

transfers the first, sixth, eleventh,. . . , records with the 
specification 3F9.2,2F10.3; the second, seventh, twelfth, 
..., records are blank; the third, eighth, thirteenth, 
..., records with the specification 12; the fourth, ninth, 
fourteenth,..., records are blank; and the fifth, tenth, 
fifteenth,. .., records are blank. 

On input, the same format descriptions apply. How¬ 
ever, on input two slashes (//) indicate a record to be 
ignored. (The record is read, but not processed.) 

If a single multiple-record format statement is re¬ 
quired in which, for example, the first two records are 
unique and all remaining records are to be transferred 
to the same specification, the specification of the re¬ 
maining records should be defined as a repetitive 
group by enclosing it in parentheses. For example, 
FORMAT(I2,3E12.4/2F10.3,3F9.4/(10F12.4)) 
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would transfer the first record with the specification 
12,3E 12.4, the second record with the specification 
2F10.3,3F9.4, and all remaining records with the speci¬ 
fication 10F12.4. The repetition starts at the last left 
parenthesis, including a repeater, if present. 

If data items remain to be transferred after the for¬ 
mat specification has been completely interpreted, the 
specification repeats after the last left parenthesis. 
Group repetition applies again if it is present. Consider 
this example. 

FORMAT(3E10.3,2(I2,2F12.4,D28.17)) 

If more items are to be transferred after this format 
specification has been completely used, the specifica¬ 
tion repeats with 12 after the last left parenthesis. The 2 
preceding the parenthesis, indicating group repetition, 
applies again. 

Carriage Control 

Carriage control characters must appear in the first po¬ 
sition of the output record if the record is to be printed. 
The valid characters used to achieve the desired results 
follow. 

Character Result 

blank No space before printing, that is, single space 

printing 

0 One space before printing, that is, double 

space printing 

1-9 Skip to channel 1-9 before printing as in¬ 

dicated 

The printer carriage will space to the next line im¬ 
mediately following each print operation. The control 
character does not appear in the printed record. 

The carriage control character is also in output tape 
or disk records that are to be used for off-line tape- or 
disk-to-printer operations. 

The carriage control character can be provided by a 
lHx as the first field specification of a format state¬ 
ment, where x is the carriage control character. For ex¬ 
ample, the field specification 1H6 causes a 6 to be in¬ 
serted in the high-order position of the output record. 
This in turn causes the printer carriage to skip to chan¬ 
nel 6 before printing. 

When alphameric text is specified for the high-order 
field of an output record, the carriage control character 
can be included in the alphameric field specification. 
For example, if X SQUARED is to occupy the high- 
order position of an output record, the specification 
could be HH 6 XbSQUAREDb. The specification 11H6 
XbSQUAREDb causes the printer carriage to skip to 
channel 6 before printing the record. This specifica¬ 
tion could also be written !H6,10HXbSQUAREDb. 


FORMAT Statements Read In at Object Time 

Fortran can accept a variable format address. This 
permits the specification of a format for an I/O list 
at object time. In order that this be accomplished, two 
factors must be taken into account. 

First, the name of the variable format specification 
must appear in a dimension statement, even if the 
array size is only 1. 

Second, the format read in at object time under 
A-conversion must take the same form as a source pro¬ 
gram format statement, except that the word format 
is omitted. The variable format begins with a left pa¬ 
renthesis and ends with a right parenthesis. 

Consider this example. A, B, and array C are con¬ 
verted and stored according to the format specifica¬ 
tions that are read into the array fmt at object time. 

DIMENSION FMT (12) 

1 FORMAT (8A10) 

READ (1, 1) (FMT (I), I = 1, 8) 

READ (I, FMT) A, B, (C (I), I = 1, 5) 

Assume that the first data card containing the format 
statement is of the form 

(b2F10.8/b(E10.2))bb . . . 

This implies that (b2F10.8/b will be stored in fmt(1) 
and (E10.2))bb will be stored in fmt(2), assuming 
/ + 2 = 10. The remaining characters will be stored in 
fmt(3) .... This further implies that A and B will be 
read according to the F10.8 format specification and 
C(l),..., C(5) will be read according to the E10.2 
format specification. 

Edited Input Data 

Edited input data to an object program is contained in 
records that conform to the following specifications: 

1. The data must correspond in order, type, and field 
width to the field specifications in the format state¬ 
ment. Reading of data starts with the first character 
position. 

2. Plus signs are indicated by a blank or a preceding + 
(12-zone punch). Minus signs are indicated by a 
preceding — (11-zone punch). Signs are not indi¬ 
cated over the units position of the field. 

3. Blanks in numeric fields are regarded as zeros. 

4. Numbers for E- and F-conversion can contain any 
number of digits, but only the high-order f digits 
will be retained. The number is rounded to f digits 
of accuracy. The absolute value of the number must 
be between the limits 10 100 and (1 — 10- f ) X 10", 
or be zero. Numbers for I-conversion must be right 
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justified (trailing blanks are regarded as zeros) and 
can contain any number of digits, but only the low- 
order k digits are retained. 

5. Numbers for E-conversion need not have four col¬ 
umns devoted to the exponent field. The start of the 
exponent field must be marked by an E, or if the E 
is omitted, by a + or — (not a blank). Valid forms 
for the exponent field are: 

E+02, Eb02, Eb2, E+2, E2, +02, +2, E-22, E-2, -2. 

6 . Numbers for E- and F-conversion need not have the 
decimal point punched. The format specification 
will supply the required decimal point. For exam¬ 
ple, the number —09321+2 with the specification 
E12.4 will be treated as though the decimal point 
had been punched between the 0 and the 9. If a 
decimal point is punched, its position overrides the 
position indicated in the format specification. 

7. A 7-8 punch in column one indicates an immediate 
return to the System Control Program. 


Unedited Data 

Unedited data may be stored on a disk unit or on mag¬ 
netic tape. The length of each complete unedited rec¬ 
ord is defined by the number of items in the I/O list. 
Unedited records that are read from either a disk unit 
or magnetic tape must have been written by a Fortran 
write statement. That is, the lists for the read and 
write statements must be of the same length. Further, 
the types of the list items must be in a one-to-one cor¬ 
respondence. For example, if the list of the write state¬ 
ment were in the form 

A, B, C 

and the list of the read statement were in the form 
X, Y, Z 

the types of A and X must match, the types of B and 
Y must match, and the types of C and Z must match. 

The information is read or written using the internal 
representation of data values with no conversion. 

The Fortran object-time routines may physically seg¬ 
ment complete records into partial records. 

General Input/Output Statements 

The input/output devices available on the object ma¬ 
chine are the only devices that can be referenced in 
an I/O statement. In particular, a disk unit must be 
available in order to use the define file, find, and the 
random form of the read and write statements. The se¬ 
quential READ and WRITE, ENDFILE, BACKSPACE and RE¬ 
WIND statements can reference a disk unit area only if 


the area has not been referenced in a define file state¬ 
ment. Sequential operations on disk and tape are effec¬ 
tively the same. The tape resident Fortran system can 
compile statements referencing a disk unit, but cannot 
use a disk unit at compile time, at load time, or at exe¬ 
cution time. 


The READ Statement 

The read statement designates input. This statement 
is used to transfer data from input devices to the com¬ 
puter. 

General Forms. 

READ (i, n) list 

READ (i) list 

READ (j' e, n) list 

READ (j' e) list 

i is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file to be used for 
data input. 

n is the statement number of a format statement or a real 
array name that describes the data to be transferred. 

list is an input list. 

j is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file on a disk unit 
whose data input is to be accessed randomly. 

' is a 4-8 punch (equivalent to the @ symbol). 

e is an unsigned integer constant, integer variable, or integer 
expression that specifies a specific record within logical 
file j. 

Examples. 

READ (5, 10) A, B, (D (J), J = 1, 10) 

READ (N, 10) K, D (J) 

READ (3) (A(J), J = 1,10) 

READ (N) (A(J), J = 1,10) 

READ (10'55, 15) 

READ (I'J, 22) 

READ (FJ + 5) X, Y, Z 

The read (i,n) list statement is used when the logical 
file contains edited information and is assigned to a 
card reader, or to a console printer, or to a tape unit, 
or to a disk unit whose records are to be selected se¬ 
quentially. The statement causes the edited informa¬ 
tion to be read from the logical file i according to 
format statement n. Successive records are read in ac¬ 
cordance with the format statement n until all the 
data items in the I/O list have been read, converted, 
and stored in the location specified by the I/O list. 

The read (i) list statement is used when the logical 
file contains unedited information and is assigned to a 
tape unit or to a disk unit whose records are to be proc¬ 
essed sequentially. The statement causes the unedited 
information to be read from the logical file i starting 
with the record at the current position of the device to 
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which logical file i is assigned. Only one record is read. 
The record is read completely only if the list specifies 
as many variables as the number of values in the rec¬ 
ord. Unedited records that are to be read in by a For¬ 
tran program should have been written by a Fortran 
program that used the same degrees of precision; that 
is, the values of k are the same for both programs, and 
the values of f are the same for both programs. An un¬ 
edited record to be read can be divided into several 
parts by a Fortran I/O routine. 

The read (j' e,n) list statement is used when the 
logical file contains edited information and is assigned 
to a disk unit whose records may be processed ran¬ 
domly. The statement causes the edited information to 
be read according to format statement n starting with 
record e within logical file /. Successive records are 
read in accordance with the format statement n until 
all the data items in the I/O list have been read, con¬ 
verted, and stored in the location specified by the I/O 
list. Each record should have no more characters than 
the maximum specified in the define file statement 
for the logical file /. 

The read (j' e) list statement is used when the logi¬ 
cal file contains unedited information and is assigned to 
a disk unit whose records may be processed randomly. 
The statement causes the unedited information to be 
read from record e within logical file /. Only one record 
is read. The record is read completely only if the list 
specifies as many variables as the number of values in 
the record. Unedited records that are to be read in by a 
Fortran program should have been written by a For¬ 
tran program that used the same degrees of precision; 
that is, the values of k are the same for both programs, 
and the values of f are the same for both programs. To 
contain all of the list data, the record to be read can 
be divided into several parts by a Fortran I/O routine, 
consistent with the description of logical file / in a de¬ 
fine file statement. Each record should have no more 
data values than the maximum specified in the define 
file statement for the logical file /. 

The WRITE Statement 

The write statement designates output. This statement 
is used to transfer data from the computer to output 
devices. 

General Forms. 

WRITE (i,n) list 

WRITE (i) list 

WRITE (j' e, n) list 

WRITE (j ' e) list 

i is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file to be used for 
data output. 


n is the statement number of a format statement or a real 
array name that describes the data to be transferred. 

list is an output list. 

j is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file on a disk unit 
that is to be accessed randomly for data output. 

' is a 4-8 punch (equivalent to the @ symbol). 

e is an unsigned integer constant, integer variable, or integer 
expression that specifies a specific record within logical 
file j. 

Examples. 

WRITE (6, 10)A, B, (C(J), J = 1, 10) 

WRITE (N, 11) K, D (J) 

WRITE (2) (A(J), J = 1, 10) 

WRITE (M) A, B, C 
WRITE (10'55, 15) 

WRITE (I'J, 22) 

WRITE (FJ + 5) 

The write (i y n) list statement is used when the logi¬ 
cal file is to contain edited information and is assigned 
to a card punch, or to a console printer, or to a tape 
unit, or to a disk unit on which records are to be writ¬ 
ten sequentially. The statement causes the edited in¬ 
formation to be output on logical file i according to 
format statement n. Successive records are output in 
accordance with the format statement n until all the 
data items in the I/O list have been converted and 
output. 

The write (i) list statement is used when the logical 
file is to contain unedited information and is assigned 
to a tape unit or to a disk unit on which records are to 
be written sequentially. The statement causes the un¬ 
edited information to be written on logical file i start¬ 
ing with the record at the current position of the device 
to which logical file i is assigned. Only one record is 
written. The record is written completely only if the 
list specifies as many variables as the number of values 
in the record. The record to be written can be divided 
into several parts by a Fortran I/O routine. 

The write (j' e,n) list statement is used when the 
logical file is to contain edited information and is as¬ 
signed to a disk unit on which records are to be written 
randomly. The statement causes the edited information 
to be written according to format statement n starting 
with record e within logical file ;. Successive records 
are written in accordance with the format statement 
n until all the data items in the I/O list have been con¬ 
verted and written. Each record should have no more 
characters than the maximum specified in the define 
file statement for the logical file /. 

The write (j' e) list statement is used when the logi¬ 
cal file is to contain unedited information and is as¬ 
signed to a disk unit on which records are to be written 
randomly. The statement causes the unedited informa¬ 
tion to be written starting with record e within logical 
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file /. Only one record is written. The record is written 
completely only if the list specifies as many variables as 
the number of values in the record. To contain all of 
the list data , the record to be written can be divided 
into several parts by a Fortran I/O routine, consistent 
with the description of logical file / in a define file 
statement. Each record should have no more data val¬ 
ues than the maximum specified in the define file 
statement for file /. 


Manipulative Input/Output Statements 

The find, end file, rewind, and backspace statements 
manipulate the logical files that are used by the object 
program. The end file, rewind, and backspace state¬ 
ments must not be used to reference logical files that 
are referenced in a define file statement, or logical 
files that are assigned to a card reader, a card punch, 
or a printer. 

The FIND Statement 

The find statement is used to initiate the positioning of 
the access mechanism when the logical file is assigned 
to a disk unit. 

General Form, find (j ' e) 

j is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file on a disk unit 
that contains data input or output to be selected ran¬ 
domly. 

is a 4-8 punch (equivalent to the @ symbol). 

e is an unsigned integer constant, integer variable, or inte¬ 
ger expression that specifies a specific record within logi¬ 
cal file j. 

The purpose of the find statement is to enable the 
programmer to increase the speed at which the object 
program is executed. The find statement may substan¬ 
tially reduce the seek time required by the next read or 
write statement, provided that it references the same 
record e within logical file /. When the statement is 
used, it starts positioning the access mechanism to lo¬ 
cate the record e within logical file / while permitting 
computation to proceed concurrently. The greater the 
separation between the find statement and the follow¬ 
ing read or write statement, the greater the concurrent 
processing time. 

The END FILE Statement 

General Form, end file i 

i is an unsigned integer constant or an integer variable that 
refers to a specific logical file. 


Examples. 

END FILE 3 
END FILE N 

The end file i statement causes an end-of-file indi¬ 
cation to be written on the logical file i. If the logical 
file is assigned to a tape unit, a tape mark is written. If 
the logical file is assigned to a disk unit, an end-of-file 
record, IbEOF, is written. Either indication is recog¬ 
nized as an end-of-file condition when sensed by a read 
statement, and can be tested by using the standard 
subprogram eof. 

The REWIND Statement 

General Form, rewind i 

i is an unsigned integer constant or an integer variable 
that refers to a specific logical file. 

Examples. 

REWIND 3 
REWIND N 

The rewind i statement causes logical file i to be 
initialized to its starting point. If the logical file is as¬ 
signed to a tape unit, the tape will be rewound. If the 
logical file is assigned to a disk unit, the start address 
of the disk area is obtained. 

The BACKSPACE Statement 

General Form, backspace i 

i is an unsigned integer constant or an integer variable that 
refers to a specific logical file. 

Example. 

BACKSPACE 3 

The backspace i statement causes logical file i to 
“backspace” one complete record. If the logical file 
contains edited records, one record is a complete rec¬ 
ord. If the logical file contains unedited records, there 
can be more than one partial record making up a com¬ 
plete record. 

If the logical file is assigned to a tape unit, the tape is 
physically backspaced. If the logical file is assigned to 
a disk unit, a disk-address is appropriately decreased. 

Input/Output Specification Statement 
The DEFINE FILE Statement 

The define file statement is used for logical files that 
are assigned to disk units such that records may be 
accessed randomly. The tape resident Fortran system 
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cannot use a disk unit. Specifically, the define file 
statement must be used when any of the following 
input/output statements are used in the program. 

READ (j ' e,n) list 
READ (j' e) list 
WRITE (i ' e,n) list 
WRITE (j ' e) list 
FIND (j ' e) 

General Form, define file ] u (m u l u f u Vx), j 2 (m 2 , l 2 , 

fi, Vi), (mu li, f h Vi) 

ji is an integer constant that refers to a specific logical file 
located on a disk unit and can be 1 through 9. This is 
the file name that is referenced in a corresponding read 
or write statement. 

rrii is an integer constant that defines the maximum number 
of records in the logical file ji. 

U is an integer constant that defines the maximum length 
of each record in logical file ji. If the records are edited 
(fi is E), the length U is the maximum number of char¬ 
acters in each record, and can be equal to or less than 
200. If the records are unedited (/< is U), the length U is 
the maximum number of data values in each record. The 
data values can be type real, type integer, and type 
logical. 

fi is either E or U. E indicates that the data in logical file 
ji is edited. When the data is edited, the data must be 
read or written with statements in the form read (j'e,n) 
list or write (j'e,n) list. U indicates that the data in logical 
file ji is unedited. When the data is unedited, the data 
must be read or written with statements in the form read 
(j'e) list or write (fe) list. 

Vt is a nonsubscripted integer variable name. This variable 
is set at the end of each read or write statement that 
references logical file ji. The value of the variable is set 
to the value of the next available record following those 
records read or written in logical file /«. During the exe¬ 
cution of a find statement, the value of the variable Vi 
is set equal to the value of the expression specifying the 
record number in the find statement. It must appear in 
common or be passed as a subprogram parameter if it 
is to be referenced by a subprogram at object time. 

Example. 

DEFINE FILE 4(100, 120, E, INDEX4), 5(50, 10, U, INDEX5), 
6(300, 150, U, INDEX6) 

In the example, logical file 4 will consist of not more 
than 100 records, each of which is not more than 120 
characters in length. Any information within the file 
is to be edited according to some format statement(s) 
when read or written. Further, index4 (type integer) 
will be assigned a value reflecting the record number 
following the last processed after each read or write 
statement. 

Note that two sectors of disk storage will be required 
for each record, implying that 100 X 2 — 200 sectors 
must be available to be assigned to this logical file. If 
each record had been not more than 100 characters in 
length, only one sector of disk storage would have been 
required for each record. 


Logical file 5 will consist of not more than 50 rec¬ 
ords, each of which contains not more than 10 data 
values of type real, type integer, or type logical. The 
information within the logical file must be read or 
written with the unedited form of read and write 
statements. Further, index5 (type integer) will be as¬ 
signed a value reflecting the record number following 
the last processed after each read or write statement. 

Note that two, or some higher integral multiple of 
two, sectors of disk storage will be used for each rec¬ 
ord. Within each 2-sector partial record, 190 data char¬ 
acters are available. Therefore, the number of data 
values that can be contained within each 2-sector par¬ 
tial record is the highest integer which, when multi¬ 
plied by the maximum of / + 2 and k, will be not 
greater than 190. For logical file 5, assuming that 
f + 2 = 10 and k = 5, the ten data values of a record 
will be contained within two sectors, implying that 
50 X 2 = 100 sectors must be available to be assigned 
to this logical file. 

Logical file 6 will consist of not more than 300 rec¬ 
ords, each of which contains not more than 150 data 
values. Assuming that / + 2 = 10 and A: = 5, it follows 
that 19 data values can be contained within each two- 
sector partial record, and eight partial records consti¬ 
tute a complete record. Thus, 300 X 8 X 2 = 4800 sec¬ 
tors must be available to be assigned to this logical file. 

define file statements can appear anywhere in the 
program. They are used in conjunction with the find 
and the random form of read and write statements. 
For example, with DEFINE FILE 4(100,120,E,IN- 
DEX4), the following statements might be coded to 
cause every eleventh record to be read. 

DEFINE FILE 4(100, 120, E, INDEX4) 


IVAR = INDEX4 + 10 


READ (4 ' IVAR, n) list 

When programs are to be executed together, all nec¬ 
essary define file statements must appear in the main 
program. These files that are defined can be referenced 
by file name in read, write, or find statements in the 
subprograms, define file statements that appear in 
subprograms are ignored; however, they can be in¬ 
cluded for documentary purposes. 

A complete record can contain an integral multiple 
of partial records. The complete record begins with the 
first partial record. If the complete record does not use 
all the partial records, all unused parts are ignored. 
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Logical Files Used for Input/Output 

A set of 14 logical files has been defined by the For¬ 
tran system. Ten of these logical files have been as¬ 
signed a unique single-digit integer and are available 
to the Fortran programmer. It is by referencing these 
numbers that the Fortran input/output operations are 
accomplished. The correspondence between the logical 
file reference and the actual physical input/output unit 
is established by the Fortran system just prior to exe¬ 
cuting the object program. 

A complete description of the logical files that are 
defined by the Fortran system is contained in the pro¬ 
gram specifications section of this publication. 


The rules for specifying the type of the function 
value are the same as those for naming variables. 

The type (real or integer) of a predefined library 
function is already specified (Figure 7) and need not be 
defined by the user. 

The type of a function subprogram can be indi¬ 
cated implicitly (real or integer) by the initial character 
of the name or explicitly (real, integer, or logical) by a 
type statement. In the latter case, the implicit type is 
overridden by the explicit specification. 

The type of a subroutine subprogram is not defined 
since there is no actual value associated with a sub¬ 
routine. 


Subprograms —Function and 
Subroutine Statements 

The Fortran language defines four general types of sub¬ 
programs: library functions, function subprograms, 
library subroutines, and subroutine subprograms. Li¬ 
brary functions and subroutines are predefined subpro¬ 
grams that are a part of the Fortran library, function 
subprograms are functions defined by a function 
statement and its associated subprogram, subroutine 
subprograms are subroutines defined by a subroutine 
statement and its associated subprogram. 

Functions differ from subroutines in that functions 
always return a single result that is the value of the 
function to the calling program, whereas subroutines 
may return any number of values to the calling pro¬ 
gram, and do not have an actual value of their own. 


Advantages of Subprograms 

One of the advantages of using subprograms is that the 
main program and its several associated subprograms 
can be compiled separately. Thus, a program can con¬ 
sist of a short main program and any number of sub¬ 
programs. Changes or error correction can then be 
made by recompiling only the affected program. 

Other advantages are that any subprogram can be 
placed in the Fortran library for use with other pro¬ 
grams. Subprograms also permit more than one pro¬ 
grammer to be simultaneously writing a large program. 


Naming Subprograms 

A subprogram name consists of one to six alphameric 
characters. No special characters can appear in the 
name. The first character must be alphabetic. 


Predefined Subprograms 

This section describes the predefined functions and 
subroutines that are incorporated within the Fortran 
library. 

Library Functions 

Incorporated within the Fortran library is a set of pre¬ 
defined functions. These functions are shown in Figure 
7. Note that the type (real or integer) of each function 
and argument is predefined and cannot be changed by 
the user. 


Library Subroutines 

Incorporated within the Fortran library is a set of pre¬ 
defined subroutines. These subroutines are given in the 
following list. Included in the list are the machine in¬ 
dicator test subroutines, i is an integer expression, j is 
an integer variable, m is a logical variable, and r is a 
real variable, sense light refers to symbolic switches 
with the values off and on. 

These subroutines are referenced by call state¬ 
ments. 


General Form 

Function 

SLITE (i) 

If i = 0, all sense lights are turned off. 
If i = 1, 2, 3, or 4, the corresponding 
light is turned on. 

SLITET (i, j) 

Sense light i (1, 2, 3, or 4) is tested 
and turned off. The variable / is set 
to 1 if i was on or j is set to 2 if i 
was off. 

SSWTCH (i, j) 

Sense switch i is tested. The variable 
j is set to 1 if i is off or ; is set to 2 
if i is on. The sense switch feature is 
required on the system for execution. 
i = 1-6 corresponds to sense switches 
B-G. 
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Number of 
Arguments 


Exponential 

Natural 

logarithm 

Common 

logarithm 

Arctangent 

Trigonometric 

sine 

Trigonometric 

cosine 

Square root 

Absolute value 


Remaindering 
(see note below) 

Choosing largest 
algebraic value 


Choosing smallest 
algebraic value 


Transfer 
of sign 

Positive 

difference 


e Ar 9 

iog e ( Ar g) 

logio( Ar g) 

arctan (Arg) 
sin (Arg) 

cos (Arg) 

(Arg) '/ 2 
|Arg| 


Sign of Arg 
applied to largest 
integer^|Arg| 

Arg j (mod Arg 2 ) 


Max (Arg], 
Arg 2 , ...) 


Min (Arg], 
Arg 2 , • • •) 


Conversion from 
integer to real 

Conversion from 
real to integer 

Sign of Arg 2 
applied to |Arg]| 

Arg j-Min 
(Arg], Arg 2 ) 


Name 

Type of 
Argument 

Type of 
Function 

EXP 

Real 

Real 

ALOG 

Real 

Real 

ALOGIO 

Real 

Real 

AT AN 

Real 

Real 

SIN 

Real 

Real 

COS 

Real 

Real 

SORT 

Real 

Real 

ABS 

Real 

Real 

IABS 

Integer 

Integer 

AINT 

Real 

Real 

INT 

Real 

Integer 

AMOD 

Real 

Real 

MOD 

Integer 

Integer 

AMAXO 

Integer 

Real 

AMAX1 

Real 

Real 

MAXO 

Integer 

Integer 

MAX 1 

Real 

Integer 

AMINO 

Integer 

Real 

AMIN 1 

Real 

Real 

Ml NO 

Integer 

Integer 

MINI 

Real 

Integer 

FLOAT 

Integer 

Real 

IF IX 

Real 

Integer 

SIGN 

Real 

Real 

ISIGN 

Integer 

Integer 

DIM 

Real 

Real 

IDIM 

Integer 

Integer 


Note: The function MOD (Arg], Arg 2 ) is defined as Arg] 

Figure 7. Predefined Library Functions 


*|Arg j/Arg^j Arg 2 where jVj is the integral part of x. 


General Form 

link ( 3Hphase-name ) 
or 

link (r) 


Function 

phase-name stands for a three-char¬ 
acter phase-name that indicates the 
presence of a program in the absolute 
format stored as a phase on the sys¬ 
tem file of the Fortran system. The 
phase (program) is loaded and execu¬ 
tion of the program begins, r, a real 
variable, has an alphameric value 
whose rightmost three characters are 
used as the phase-name. 


General Form 

EOF (m) 


Function 

m, a logical variable, is assigned a 
value of .true, if the most recently 
executed read statement sensed an 
end-of-file condition; otherwise, m is 
.false. . An end-of-file condition is 
indicated by IbEOF, a tape mark, or 
the last card. 
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Defining Subprograms 

This section describes the function statement that is 
used to name function subprograms, and the subrou¬ 
tine statement that is used to name subroutine sub¬ 
programs. 

The FUNCTION Statement 

The function statement is used to name function 
subprograms and must be the first statement of a func¬ 
tion subprogram. It cannot appear anywhere else in 
the subprogram nor can it appear in a main program. 

General Forms. 

FUNCTION name (a h a 2 ,..., a n ) 

REAL FUNCTION name (ai, a 2 ,..., a n ) 

INTEGER FUNCTION name (ai, a 2 , . . ., a n ) 

LOGICAL FUNCTION name (ai, a 2 ,..., a n ) 

name is the symbolic name of the single-valued function 
subprogram. 

a h a 2 , . . ., a n are the dummy arguments of the function and 
can be nonsubscripted variable names, or array names, 
or the dummy names of subroutine, or other function 
subprograms. There must be at least one argument in 
a function subprogram. 

The type of function can be explicitly stated by the 
inclusion of the word real, integer, or logical before 
the word function, as shown in the preceding formats. 

Examples. 

FUNCTION ARCSIN (RADIAN) 

REAL FUNCTION ROOT (A, B, D) 

INTEGER FUNCTION CONST (ING, SG) 
LOGICAL FUNCTION IFTRU (D, E, F) 

The function subprogram can contain any Fortran 
statement except a subroutine statement or another 
function statement. 

The name of the function must appear at least once 
as a variable on the left side of an arithmetic statement, 
or as an element of an input list. 

Consider the following example. 

FUNCTION CALC (A, B) 


CALC = Z + B 


RETURN 


END 

In this example, the value of calc is computed and its 
value is returned to the calling statement. 


The function subprograms are logically terminated 
during execution by a return statement. They are 
physically terminated during compilation by an end 
statement. 

The arguments in a function statement can be con¬ 
sidered as dummy variable names that are replaced at 
the time of execution by the actual arguments supplied 
in the function reference in the calling program. The 
actual arguments must correspond in number, order, 
and type with the dummy arguments, and can be con¬ 
stants, nonsubscripted variables, subscripted variables, 
expressions, array names, or other subprogram names. 

If the value of a dummy argument is changed by the 
subprogram, then the actual argument in the calling 
program is also changed. In this case, the actual argu¬ 
ment must be a nonsubscripted variable, a subscripted 
variable, or an array name. The actual argument can¬ 
not be a constant, an expression, or a subprogram 
name. 

Dummy arguments cannot appear in an equiva¬ 
lence statement in the function subprogram. 

Dummy arguments can be subprogram names. The 
corresponding actual arguments in the calling pro¬ 
gram must be names that have appeared in an exter¬ 
nal statement in the calling program. The dummy ar¬ 
guments can also appear in an external statement. 
In this way, a subprogram name used as an actual 
argument in a calling program can be passed to a 
subprogram, which in turn can pass it on to another 
subprogram. 

If a dummy argument is an array name, a dimension 
statement or a common (with dimensions) statement 
for that array must appear in the function subpro¬ 
gram. Further, the corresponding actual argument 
must be a dimensioned array name. 

If a dummy array name appears in a common state¬ 
ment, then the actual argument in the calling program 
must be an array name that appears in the identical 
place in the common statement. 

If a dummy variable name appears in a common 
statement, then the value of the actual argument in the 
calling program replaces the value of the dummy name 
in common immediately upon entry to the function 
subprogram. 

The SUBROUTINE Statement 

The subroutine statement is used to name subroutine 
subprograms and must be the first statement of a sub¬ 
routine subprogram. It cannot appear anywhere else 
in the subprogram nor can it appear in a main program. 

General Form, subroutine name (a u a 2 ,..., a n ) 

name is the name of the subprogram. 

ai a 2 , ..., a n are the dummy arguments, and can be non¬ 
subscripted variable names, or array names, or the 
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dummy name of another subroutine or function 
subprogram. There must be at least one argument in a 
subroutine subprogram. 

Examples. 

SUBROUTINE MATMPY (A, N, M, B, L, J) 
SUBROUTINE QDRTIC (B, A, C, ROOT1, ROOT2) 

The subroutine subprogram can contain any For¬ 
tran statement except a function statement or another 
subroutine statement. 

The subroutine subprograms are logically termi¬ 
nated during execution by a return statement. They 
are physically terminated during compilation by an 
end statement. 

The arguments in a subroutine statement can be 
considered as dummy variable names that are replaced 
at the time of execution by the actual arguments sup¬ 
plied in the call statement. The actual arguments 
must correspond in number, order, and type with the 
dummy arguments, and can be constants, nonsub- 
scripted variables, subscripted variables, expressions, 
array names, other subprogram names or an alpha¬ 
meric field. An actual argument that is an alphameric 
field must correspond to a dummy argument that is a 
real variable. 

If the value of a dummy argument is changed by the 
subprogram, then the actual argument in the calling 
program is also changed. In this case, the actual argu¬ 
ment must be a nonsubscripted variable, a subscripted 
variable, or an array name. The actual argument can¬ 
not be a constant, an expression, a subprogram name, 
or an alphameric field. 

Dummy arguments cannot appear in an equivalence 
statement in the subroutine subprogram. 

Dummy arguments can be subprogram names. The 
corresponding actual arguments in the calling program 
must be names that have appeared in an external 
statement in the calling program. The dummy argu¬ 
ments can also appear in an external statement. In 
this way, a subprogram name used as an actual argu¬ 
ment in a calling program can be passed to a subpro¬ 
gram, which in turn can pass it on to another subpro¬ 
gram. 

If a dummy argument is an array name, a dimension 
statement or a common (with dimensions) statement 
for that array must appear in the subroutine subpro¬ 
gram. Further, the corresponding actual argument 
must be a dimensioned array name. 

If a dummy array name appears in the common 
statement, then the actual argument in the calling pro¬ 
gram must be an array name that appears in the identi¬ 
cal place in the common statement. 

If a dummy variable name appears in a common 
statement, then the value of the actual argument in the 
calling program replaces the value of the dummy name 


in common immediately upon entry to the subroutine 
subprogram. 

The RETURN Statement 

General Form, return 

This is the exit from any subprogram. It returns con¬ 
trol to the calling program. The return statement is 
the logical end of the subprogram. There can be one 
or more return statements in the subprogram. 

Subprogram Names as Arguments 

function and subroutine subprogram names can be 
used as the actual arguments in the calling program. In 
order to distinguish these subprogram names from or¬ 
dinary variables when they appear in an argument list, 
their names must appear in an external statement, 
even if they are also used in actual references within 
the same program (see The Type Statements). 

Examples. 

EXTERNAL SIN 
CALL SUBR (A, SIN, B) 

Using Subprograms 

This section describes the method for referencing func¬ 
tions and subroutines. 

Using Functions 

A function is referenced (or called) by using its name 
followed by its actual arguments in parentheses as an 
operand in an expression. 

General Form. Name (a u a 2 ,, a n ) 

Name is the name of the function. The predefined function 
names are shown in Figure 7. 

a h at, ... ,a n are the actual arguments of the function. The 
arguments can be arithmetic or logical expressions, 
constants, nonsubscripted variables, subscripted vari¬ 
ables, array names, or other subprogram names. The 
number of arguments required for predefined functions 
is shown in Figure 7. 

Examples. 

Z = SIN (X) + COS(Y)*Zl 

T = 5.*ARBFNC (55.2/SQRT (10.3*R), ABS (3. +5)) 

In Figure 7 note that the type (real or integer) of 
each built-in function is predefined and cannot be 
changed by the user. Note also that the type of each 
argument is predefined. 

Each actual argument must have been assigned a 
value before the function reference. 
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Using Subroutines — The CALL Statement 

The call statement is used only to call a subroutine 
subprogram. 

General Form, call name (a ly a 2y , a n ) 

name is the symbolic name of a subroutine subprogram. 

a h a iy . . ., a n are the actual arguments that are being sup¬ 
plied to the subroutine subprogram. At least one 
argument is required. 

Examples. 

CALL MATMPY (X, 5, 10, Y, 7, 2) 

CALL QDRTIC (9. 732, Q/4. 536, R-S**2.0, XI, X2) 

The call statement transfers control to the subrou¬ 
tine subprogram and replaces the dummy variables 
with the actual arguments that appear in the call 
statement. 

The actual arguments in a call statement can be any 
one of the following. 

1. Any type of constant. 

2. Any type of subscripted or nonsubscripted variable. 

3. An arithmetic or logical expression. 

4. Any array name. 

5. The name of a function or subroutine subpro¬ 
gram. The name must also appear in an external 
type statement. 

6. Alphameric characters (allowed only for subrou¬ 
tines). Such arguments must be preceded by nH, 
where n is the number of characters included in the 
argument and must be less than or equal to / + 2. 
When n < f + 2, the characters are right justified. 
For example, 9HENDbPOINT. Blank spaces and 
special characters are considered in the character 
count when used in alphameric fields. 

The actual arguments in a call statement must 
agree in number, order, type, and array size (except as 
explained in The DIMENSION Statement) with the 
corresponding arguments in the function or subrou¬ 
tine statement of the called subprogram. 

Each actual argument must have been assigned a 
value before the reference to the subroutine. 


The Specification Statements 

The specifications statements provide information 
about storage allocation and the variables and con¬ 
stants used in the program. 


The DIMENSION Statement 

General Form, dimension v t (ij, v 2 (i 2 ),..., v n (i n ) 

Vi y Vg, ... y v n are the names of arrays. 

ii, it, ..., i n are each composed of 1, 2, or 3 unsigned in¬ 
teger constants and/or integer variables separated by 
commas. Each integer specifies the maximum value of 
the subscript, i can be an integer variable only when 
the dimension statement appears in a subprogram. 

Examples. 

DIMENSION A(10), B(5, 15), C(L, M) 

DIMENSION S(10), K(5,5,5), G(100) 

The dimension statement provides the information 
necessary to allocate storage for arrays in the object 
program. It defines the dimensionality and the maxi¬ 
mum size of each array listed. 

Each variable that appears in subscripted form in 
the source program must appear in a dimension state¬ 
ment contained in the source program. However, if the 
dimension information for a variable is included in a 
common statement in the source program, it must not 
be included in a dimension statement. 

A single dimension statement can specify the dimen¬ 
sions of any number of arrays. The dimension state¬ 
ment that specifies the array size must precede the first 
appearance of each subscripted variable in an execut¬ 
able or data statement. 

Dimensions specified in a common statement are 
subject to all the rules for the dimension statement, 
except that adjustable dimensions are not permitted. 

Adjustable Dimensions 

The name of an array and the values that are its di¬ 
mensions can be passed as arguments in a subprogram 
call. In this way, a subprogram can perform calcula¬ 
tions on an array whose size is not determined until the 
subprogram is called. Figure 8 illustrates the use of 


DIMENSION A(5, 10) 

CALL MAYMY 5, 10,...) 

SUBROUTINE MAYMY (..., R, L, M,...) 

DIMENSION...,R(L,M), ... 

DO 100 1=1, L 


Figure 8. Adjustable Dimensions 



+ 
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adjustable dimensions showing typical main program 
statements and typical subprogram statements. 

Variables can be used as dimensions of arrays only 
in the dimension statement of a function or subrou¬ 
tine subprogram. For such an array, the array name 
and all variables used as dimensions must appear as 
arguments in the function or subroutine statement. 

Adjustable dimensions cannot be altered within the 
subprogram. 

The calling program passes values for the dimen¬ 
sions to the subprogram. These dimensions are those 
that appear in the dimension statement of the calling 
program. 

Variable dimension size can be passed through more 
than one level of a subprogram. 

An array name with adjustable dimensions cannot 
appear in a common statement. 

The COMMON Statement 

General Form, common a, b, c ,... 

a, b, c, . . . are variable or array names that can be di¬ 
mensioned 

Example. 

COMMON A, B, C (5, 10) 

The common statement refers to a common area in 
core storage. Variables or arrays that appear in main 
programs and subprograms can be made to share the 
same storage locations by using the common state¬ 
ment. For example, if one program has the statement 
common a and a second program has the statement 
common b, the variables (or arrays) of a and b will 
occupy the same storage locations in the common area. 
These variables (or arrays) appearing in common state¬ 
ments are assigned locations relative to the beginning 
of the common area. 

Within a specific program or subprogram, variables 
and arrays are assigned core storage locations from the 
high core-storage addresses to lower core-storage ad¬ 
dresses in the sequence in which their names appear 
in the common statement. Subsequent sequential stor¬ 
age assignments within the same program or subpro¬ 
gram are made with additional common statements. 

For example, if the main program contains the state¬ 
ment 

COMMON A, B, C 

and a subprogram contains the statement 
COMMON L, M, N 

then a, b, and c are assigned sequential locations, as 
are l, m, and n. Further, a and l will occupy the same 
location, b and m will occupy the same location, and c 
and n will occupy the same location. 


Variables declared in common must agree, respec¬ 
tively, in type. In the preceding example, a and l are 
type real, as are b and m, and c and n. (l, m, and n 
must be declared as real in the subprogram.) 

A dummy variable can be used in a common state¬ 
ment to establish shared locations of variables that 
would otherwise occupy different locations. For exam¬ 
ple, the variable x can be assigned to the same location 
as the variable c of the previous example by using the 
following statement. 

COMMON R, S, X 

where r and s are dummy names that are not used else¬ 
where in the program. 

Redundant entries are not permitted in a common 
statement. For example, the following statement is in¬ 
valid. 

COMMON F, G, H, F 

Variables brought into common through equiva¬ 
lence statements may increase the size of common 
(see The EQUIVALENCE Statement). 

Two variables in common cannot be made equiva¬ 
lent to each other, either directly or indirectly. 

The EQUIVALENCE Statement 

General Form, equivalence (a, b, c ,...), (d, e , 

a, b , c, d, e, f 9 ..., are variables which may be subscripted. 
Subscripted variables can have single or multiple sub¬ 
scripts. These subscripts must be integer constants. 

Example. 

EQUIVALENCE (A, B(l), C(5)), (D(17), E(3)) 

The equivalence statement controls the allocation 
of core storage by causing two or more variables to 
share the same core storage location. 

An equivalence statement can be placed anywhere 
in the source program. Each pair of parentheses in the 
statement list encloses the names of two or more vari¬ 
ables that are to be stored in the same location during 
execution of the object program. Any number of equiv¬ 
alences (sets of parentheses) can be given. 

In an equivalence statement, C(p) is defined as the 
location of the pth element in the array C. Thus, in the 
preceding example, the equivalence statement indi¬ 
cates that A, and the B and C arrays are to be as¬ 
signed storage locations so that the elements A, B(l), 
and C(5) are to occupy the same location. In addition, 
it specifies that D(17) and E(3) are to occupy the same 
location. This implies that D(15) and E(l) occupy the 
same location. 

All variables that are to occupy the same location as 
a result of an equivalence statement must be of the 
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same type and must not be inconsistent in relative core¬ 
storage locations. For example, the statement 
EQUIVALENCE (A(4), C(2), D(l)), (A(2), D(2)) 

is invalid. The equivalencing of A(4), C(2), and D(l) 
sets up an equivalence among elements of each row 
below. 


A(l) 



A(2) 



A(3) 

C(l) 


A(4) 

C(2) 

D(l) 

A(5) 

C(3) 

D(2) 

* 

* 

* 


Thus, D(2) must not be equivalenced to A(2). equiva¬ 
lence (A(3), A(4)) is also invalid. 

Variables or arrays not mentioned in an equivalence 
statement will be assigned unique locations. Locations 
can be shared only among variables, not among con¬ 
stants. 

The sharing of storage locations requires a knowl¬ 
edge of which Fortran statements cause a new value 
to be stored in a location. There are four such state¬ 
ments. 

1. Execution of an arithmetic statement stores a new 
value in the variable to the left of the equal sign. 

2. Execution of a do statement, the terminal statement 
of a do, or an implied do in an I/O list stores a new 
indexing value. 

3. Execution of a read statement stores new values at 
the locations specified by variable names in the in¬ 
put list. 

4. Execution of a subroutine or function may store a 
new value in any of its actual arguments or any 
variables in common. 

Variables brought into common through equiva¬ 
lence statements can increase the size indicated'by the 
common statements, as in the following example. 
COMMON A, B, C 
DIMENSION D(3) 

EQUIVALENCE (B, D(l)) 

The layout of core storage indicated by this example 
(extending from the lowest location of common to the 
highest location of common) is: 

A 

B D(l) 

C D(2) 

D(3) 

A variable cannot be made equivalent to an element 
of an array in such a way as to cause the array to ex¬ 


tend beyond the beginning of common. For example, 
the following coding is invalid. 

COMMON A, B, C 
DIMENSION D(3) 

EQUIVALENCE (B, D(3)) 

This would force D(l) to precede A, as follows. 

0 ( 1 ) 

A D(2) 

B D(3) 

C 

The Type Statements 

General Forms. 

INTEGER a,b,c,... 

REAL a,b, c,. .. 

LOGICAL a,b, c ,.. . 

EXTERNAL x,y,z,... 

a,b,c, . . . are variable or function names appearing within 
the program. 

x, y\ z, . .. are function or subroutine names appearing as 
actual arguments within the program. 

Examples. 

INTEGER BIXF, X, QF, LSL 
REAL IMIN, LOG, GRN, KLW 
LOGICAL F, G, LWG 
EXTERNAL SIN, MATMPY, INVTRY 

The variable or function names following the type 
(integer, real, logical, or external) in the type state¬ 
ment are defined to be of that type, and remain that 
type throughout the program. The type cannot be 
changed. 

In the examples, note that lsl and grn need not ap¬ 
pear in their respective type statements, for their type 
is implied by their first characters. 

The type statement must precede the first use of a 
name in any executable statement or data statement in 
the program. The appearance of a name in any type 
statement except external overrides the implicit type 
assignment. A name can appear in two type statements 
only if one pf them is external. A name declared to be 
of a given type can assume only values of the same 
type. 

Subprogram names that are actual arguments of 
other subprograms must appear in external type 
statements. Dummy arguments in a subroutine or 
function statement must also appear in an external 
statement if they are dummy subroutine names that are 
actual arguments of other subprograms. For example, 
assume both somef and other are subprograms. If 
a = somef (other, b, c) + b appears in a program, the 
type statement external other is required in the pro¬ 
gram. 
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The DATA Statement 

General Form, data list/d ly d 2 ,, d n /, list/d u d 2 , 
k *d$ 9 • < ■ j d m /, • • •, list/dxy dy,... 9 dz/ 

list contains the names of the variables being defined. 
di is the information literal. 
k is an integer constant. 

Examples. 

DATA R, Q/14.2, 3HEND/, B(2)/0./ 

DATA (B(I), C(I), 1 = 1, 40, 2) /2.0, 3.0, 38*100.0/ 

The data statement is used to compile data into the 
object program, initializing the values of the specified 
values prior to execution. For example, the result of 
the first data statement would be: 

Variable Initialized Value 

R 14.2 

Q END (right justified) 

B(2) 0. 

The list can contain nonsubscripted variables, sub¬ 
scripted variables, or array names that imply the en¬ 
tire array is initialized. Subscripted variables must 
have constant subscripts or subscripts whose variables 
are under control of DO-implying parentheses and asso¬ 
ciated parameters. The DO-defining parameters must 
be integer constants. 

A k appearing before a d-literal indicates that the 
field is to be repeated k times. The k must be a one to 
three digit integer. It must be separated from the field 
to be repeated by a times sign (*). 

The d-literals can take any one of the following 
forms. 

1. Integer constants and real constants. 

2. Alphameric characters. The alphameric field is writ¬ 
ten nH followed by n alphameric characters, n 
should be less than or equal to f + 2. Each group 
of / + 2 characters form a word. If n < f + 2, the 
characters are right-justified in the field and the 
word is filled out with blanks. If n > / + 2, only 
the leftmost / + 2 characters are stored in the word 
and the remaining characters are lost. Blanks are 
significant in alphameric fields. 

3. Logical constants. The logical constants can be 

.TRUE. , T, .FALSE. , Or F. 

There must be a one-to-one correspondence be¬ 
tween the list items and the data literals. For example, 
if it is desired to define 16 alphameric characters (say 
8HDATAbTOb,8HBEbREADb) as a variable (say G) 
and if f is 6, then G must be dimensioned to contain at 
least two elements. 


When DATA-defined literals are redefined during exe¬ 
cution, these variables will assume their new values 
regardless of the data statement. 


Segmenting Programs 

Large programs can be segmented into several phases, 
or overlays. Each phase must consist of a main pro¬ 
gram and any required subprograms. 

Each phase is given a unique three-character phase 
name by using a compiler option control card when 
the main program is compiled. The phase is called by 
using a call link (3H phase-name) or call link (r) 
statement in the calling program. 

Data values can be passed between phases by using 
logical files or the common area. Therefore, the com¬ 
mon area used for passing data values between phases 
must be the same. The longest phase must not overlap 
this common area. 

In order to use the segmenting capability of the For¬ 
tran system, perform the following operations. 

1. Compile each main program, specifying its unique 
program name. Use a compiler option control card 
to specify the unique program name. If appropriate, 
compile any required subprograms. See FORTRAN 
RUN. 

2. Specify that an absolute deck be punched as a re¬ 
sult of the loader run that loads the main program 
and any subprograms. Use a loader output option 
control card to get an absolute deck. See LOADER 
RUN. 

3. Perform a user-update job to place the program on 
the system file. Once the program is stored as a 
phase on the system file, the phase can be called at 
any time. See User-Update Jobs and PRODUC¬ 
TION RUN. 

4. Use the call link (3H phase-name) or call link (r) 
statement to call the phase. 

When the phase is called, it is read into core storage 
beginning at address 950. It extends upward in core 
storage to include the entire phase. The common area 
defined in the program or a subprogram is not in¬ 
cluded as a part of the phase. 

The same phase can be called more than one time. 
The sequence of phase calling does not necessarily 
have to correspond to the order in which the phases 
are placed on the system file. However, on a tape sys¬ 
tem, having the phases placed on the system file in the 
same order in which they are to be called will optimize 
phase-call time. 
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Fortran Source Program 

Source Program Statements and Sequencing 

The order in which the source program statements of 

a Fortran program are executed follows these rules: 

1. Control originates at the first executable statement. 
The specification statements and the format, func¬ 
tion, subroutine, define file, and end statements 
are nonexecutable. In questions of sequencing, they 
can be ignored. 

2. If control was with statement S, then control will 
pass to the statement indicated by the normal se¬ 
quencing properties of S. If, however, S is the last 
statement in the range of one or more do’s that are 
not yet satisfied, then the normal sequencing of S is 
ignored and DO-sequencing occurs. 


The normal sequencing properties of each Fortran 
statement follows: 


Statement Normal Sequencing 


a = b 

BACKSPACE 

CALL 

COMMON 

CONTINUE 

DATA 

DEFINE FILE 

DIMENSION 

DO 

END 

END FILE 
EQUIVALENCE 
EXTERNAL 
FIND 
FORMAT 
FUNCTION 
GO TOn 
GO TO (ni, 

II2, ■ • • , Dm), i 

IF (t) s 

INTEGER 

LOGICAL 

PAUSE 

READ 

REAL 

RETURN 

REWIND 

STOP 

SUBROUTINE 

WRITE 


Next executable statement 

Next executable statement 

First statement of called subprogram 

N onexecutable 

Next executable statement 

Nonexecutable 

Nonexecutable 

N onexecutable 

DO-sequencing, then the next ex¬ 
ecutable statement 
Terminates source program 
Next executable statement 
Nonexecutable 
Nonexecutable 
Next executable statement 
Nonexecutable 
Nonexecutable 
Statement n 
Statement m 

Statement s or next executable state¬ 
ment if t is true or false, respectively 
Nonexecutable 
Nonexecutable 
Next executable statement 
Next executable statement 
Nonexecutable 

The first statement or part of a 

statement, following the reference 

to this program 

Next executable statement 

Terminates object program 

Nonexecutable 

Next executable statement 


Writing the Source Program 

The statements of a Fortran source program are usu¬ 
ally written on a standard Fortran Coding Form , Form 
624-7999. A sample Fortran source program, coded on 
the standard coding form, is shown in Figure 9. This 
program selects the largest value from an array of 
numbers, identified by the variable name A. 

Columns 1-5 of the first line of a statement may con¬ 
tain a statement number that identifies the statement. 
This number must be an unsigned integer constant less 
than 100,000. Blanks and leading zeros are ignored in 
these columns. For example, bbb50 is the same as 
b5bb0 and 5bbb0. A statement must not be num¬ 
bered zero. All statement numbers must be unique. 
These statement numbers do not have to be in any 
sequence or order. For example, the first statement of 
a program may be given statement number 100 and 
the 50th statement in a source program may be given 
statement number 1. These statement numbers are 
used, for example, in do loops to indicate the range of 
the do loop, in the go to statement, and to refer to 
format statements. Superfluous statement numbers 
should be kept to a minimum. 

A statement can be continued on as many as nine 
additional lines. Any line with a non-blank, non-zero 
column 6, is considered to be a continuation of the pre¬ 
ceding line. The actual character used in column 6 
does not have any significance. The first continuation 
card could have a 9 in column 6, the second card an A, 
the third a 2, and so on. 

Columns 7-72 contain the actual Fortran statements. 
Blanks are ignored except in an H-field of a format 
statement, a data statement, or a call statement. 

Statements with a C in column 1 are not processed 
by the Fortran compiler, but the statements appear in 
the source program listing as comments. If there is a 
C in column 1, columns 2-72 can be used for com¬ 
ments. Comment cards cannot appear between contin¬ 
uation cards of a statement. Comment cards cannot 
immediately precede the function or subroutine 
statements. 

Columns 73-80 are not processed and can be used 
for identification. 

The order of execution of the source program state¬ 
ments is governed by the sequencing described in the 
preceding section. 


Checking the Source Program 

An early successful compilation of a Fortran source 
program is more likely if the coding is checked against 
the following list of commonly-made errors. 
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Item to Check Coding Error 


Item to Check Coding Error 


A-conversion 


Arithmetic expressions 


do parameters 


format statements 


Fortran language • 


H-conversion 


Field width, w, exceeds the word Statement numbers 
size, f + 2. 


Use of same statement number more 
than one time. 


Real and integer numbers, both con¬ 
stants and variables, mixed in in¬ 
valid combinations. Often, a real 
constant is written without a de¬ 
cimal point. 

Subscripted integer variable or ex¬ 
pression used as a parameter. 

format specifications and I/O list 
not compatible. 

Misspelled Fortran-language word 
such as equivalent instead of 

EQUIVALENCE. 

Incorrect count for n of nH. 


Subprograms 


Subprogram names 


subroutine state¬ 
ment arguments 

Subscripted variables 


Absence of a referenced statement 
number. 

function or subroutine statement 
missing at beginning of a sub¬ 
program; return statement missing; 
end statement missing. 

Name is same as a variable name 
used in the program. 

Dummy arguments that are sub¬ 
scripted or equivalenced variables. 

Each subscripted variable, including 
those in lists, does not appear in a 
dimension statement. 


Order of source deck Specification statements or format 

statements are out of sequence. 

Program flow Statement transfers into the range 

of a do. 

Unreferenced statement after a go 
to, return, or stop, end statement 
encountered in program flow. 


Punching the Source Program 

The Fortran statements, prepared as described in 
Writing the Source Program, are normally punched 
into the standard Fortran card, Form 888157, shown 
in Figure 10. 
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C~*COI 


[STATEMENT 

NUMBER 


FORTRAN STATEMENT 


IDENTIFICATION 


11 


O'OOOOl 

11 2 3 4 5 
1*1 1 1 
I 

2|2 2 2 2 
3 I 3333 

a|4 4 4 4 

5(5 5 5 5 

6^6 6 6 6 

I 

717 7 7 7 

8 ! 8 8 8 8 

I 

9*9 9 9 9 

112 3 4 5 


010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 C 0 0 010 0 0 0 0 0 0 0 


78 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 23 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 


73 74 75 78 77 78 79 80 


|1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
2222222222222222222222222222222222222222222222222222222222222222222222222 
333333333333333333333333333333333333333333333333333333333333333333 
444444444444444444444444444444444444444444444444444444444444444444 
555555555555555555555555555555555555555555555555555555555555555555 
666666666666666666666666666666666666666666666666666666666666666666 


8 8 8 8 8 8 8 8 8 8 8 8 8 ft 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 


33333333 

44444444 

55555555 

66666666 

77777777 

88888888 

99999999 


9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 48 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 S3 64 65 C6 67 68 69 70 71 72173 74 75 76 77 78 79 80 
I8M 888157 


Figure 10. Fortran Source Card 


Table of Source Program Characters 

Set H 



The following table indicates the list of characters in 

(Fortran Characters) 

Set A 

Card Punches 

character Set H that can 

be used in a Fortran source 

J 

J 

11-1 

program. The equivalent characters 

in character Set A 

K 

T 

K 

T 

11-2 

11 o 

are also given. The characters are 

shown in collating 

1j 

M 

J_i 

M 

ll-o 

11-4 

sequence. 



N 

N 

11-5 




O 

O 

11-6 

Set H 



P 

P 

11-7 

(Fortran Characters) 

Set A 

Card Punches 

Q 

Q 

11-8 




R 

R 

11-9 

Blank 

Blank 

Blank 

S 

S 

0-2 

• 

• 

12-3-8 

T 

T 

0-3 

) 

□ 

12-4-8 

U 

U 

0-4 

+ 

& 

12 

V 

V 

0-5 

$ 

$ 

11-3-8 

W 

W 

0-6 

* 

* 

11-4-8 

X 

X 

0-7 

— 

— 

11 

Y 

Y 

0-8 

/ 

/ 

0-1 

Z 

Z 

0-9 

» 

» 

0-3-8 

0 

0 

0 

( 

% 

0-4-8 

1 

1 

1 

= 

# 

3-8 

2 

2 

2 

/ 

@ 

4-8 

3 

3 

3 

A 

A 

12-1 

4 

4 

4 

B 

B 

12-2 

5 

5 

5 

C 

C 

12-3 

6 

6 

6 

D 

D 

12-4 

7 

7 

7 

E 

E 

12-5 

8 

8 

8 

F 

F 

12-6 

9 

9 

9 

G 

G 

12-7 




H 

H 

12-8 

Note: The character $ can 

be used in Fortran only in an H- 

I 

I 

12-9 

conversion field. 
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Program Specifications 


The Fortran Processor Program is a language process¬ 
ing system that operates entirely under control of the 
System Control Program. Together, the Fortran Proc¬ 
essor Program and the System Control Program make 
up the Fortran system. 

The Fortran system translates source program state¬ 
ments written in the Fortran language into machine- 
language instructions. Object-program execution is also 
under control of the Fortran system. In addition to 
these translation and execution functions, the Fortran 
system provides these additional features. 

Expanding the Fortran Library. A Fortran library is 
defined by the system that contains commonly used 
subroutines and functions, such as sine, cosine, and 
logarithms. The Fortran system provides the capa¬ 
bility of expanding the library to include additional 
user-supplied subroutines. In addition, if the system 
is disk-oriented, the user can relocate the library to 
an area of his choice in disk storage. 

Changing Input/Output Devices. The Fortran system 
provides the user with the option of changing the 
form of input to and output from specific jobs. In 
order that the Fortran system operate at a machine- 
independent level, a set of logical files that are used 
for input/output operations has been defined. Al¬ 
though these logical files are assumed by the System 
Control Program to be assigned to a defined set of 
input/output devices, the user can change these as¬ 
signments according to his particular needs. 

Stacking of Jobs. Under control of the System Control 
Program, it is possible to process a sequence of jobs 
without regard to the type of processing that is being 
performed. For example, source programs can be 
compiled and object programs can be executed, all 
in one stack. 

Building Object-Program Libraries in Mass Storage. 
By using a particular logical file (system) defined by 
the Fortran system, it is possible to build an object- 
program library in mass storage (disk storage or 
magnetic tape). Because each of these object pro¬ 
grams is identified by a unique three-character name, 
the user has immediate access to any of the pro¬ 
grams. Object programs can be inserted or deleted 
from the library at the discretion of the user. If a pro¬ 
gram is to be used frequently, using the object-pro¬ 


gram library substantially reduces program load time 
(as opposed to loading from cards) and eliminates 
excessive handling of punched-card object decks. 
The use of the object-program library at execution 
time allows the user to segment a large program into 
sections or overlays. 


The Fortran System 

The Fortran system built by the user contains the Sys¬ 
tem Control Program and the Fortran Processor Pro¬ 
gram. 

System Control Program. The System Control Pro¬ 
gram is the controlling element of the system. Its 
main functions are to analyze control card informa¬ 
tion, transfer control to the appropriate portion of 
the system, and to perform actual input/output op¬ 
erations when a logical file is referenced, either dur¬ 
ing compilation or execution. 

Fortran Processor Program. The Fortran Processor 
Program translates source programs, written in the 
Fortran language, into machine language object pro¬ 
grams. Object programs are executed under control 
of the Fortran system. 


System Control Program 

System operations can be started by a deck of cards 
supplied by ibm. This deck, called the card boot, pre¬ 
pares core storage and reads in the first portion of the 
System Control Program from mass storage (disk or 
tape). Subsequently, the entire resident portion of the 
System Control Program is read into lower core 
storage. 

All control functions for the system are accom¬ 
plished by the System Control Program. These func¬ 
tions include: 

Assigning Input/Output Devices. Each logical file is 
assigned to a corresponding user-specified physical 
input/output device. 
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Controlling Input/Output Devices. Physical manipu¬ 
lation of the corresponding input/output device oc¬ 
curs when the currently active program references a 
logical file. 

Updating the System. Updating the system to the lat¬ 
est modification level or version is performed by the 
System Control Program. 

Selecting Appropriate Processor Runs. From control 
cards supplied by the user, the System Control Pro¬ 
gram is able to determine the operations necessary 
for the completion of a job. For example, a source 
program is coded in the Fortran language and the 
user specifies the end result of processing to be a 
machine-language object program in relocatable for¬ 
mat. This would require that processing be per¬ 
formed only by the Fortran compiler. The control 
card says in effect that the phases of the Fortran 
compiler are to be called by the System Control 
Program. The System Control Program reads the 
control card and calls the Fortran compiler. Proc¬ 
essing takes place, and at completion, control reverts 
to the System Control Program which reads the con¬ 
trol card for the next job. 

The remainder of this section describes the logical 
files that are defined by the system, and the control 
cards required for system operations. 


Logical Files 

In order that input/output functions operate at a 
machine-independent level, a set of logical files has 
been defined by the Fortran system. These logical files 
are used for input/output operations. Each file has a 
specific function and is assigned by the System Control 
Program to a particular input/output device. The user 
can alter the file-assignments temporarily by using 
asgn (assign) control cards. 

The use of the logical files during compilation and 
execution times is described in this section. 

Compilation Time 

During compilation, the logical files can be thought of 
as falling into one of four categories. These categories 
are: 

Residence File 
Operation Files 
External Files 
Internal Files 

The functions of the logical files and the devices to 
which they can be assigned are as follows. 


Residence File 

SYSTEM File. The system file contains the System 
Control Program, the Fortran compiler, the Fortran 
loader, and the user’s object-program library. It is 
assigned to a fixed area in a 1311 or 1301 disk unit, 
or to magnetic tape. 

Operation Files 

CONTROL File. The control file contains cards or 
card images that send control information to the 
System Control Program or the Fortran loader. It 
can be assigned to the card reader, or to the console 
printer. 

MESSAGE File. The message file contains informa¬ 
tion of primary interest to the machine operator. 
These messages are usually diagnostics relating to 
the operating procedures and/or instructions to the 
machine operator. It can be assigned to the printer, 
or to the console printer. 

External Files 

LIST File. The list file, generally associated with 
high-volume printed listings, contains information 
directed primarily toward the source programmer. 
It can be assigned to the printer, or to disk storage, 
or to magnetic tape, or it can be omitted. If the list 
file is assigned to a disk unit, the information is 
stored two sectors per printed line in the move mode. 

INPUT File. The input file contains source informa¬ 
tion to the compiler. It can be assigned to the card 
reader, or to any available area in disk storage, or to 
magnetic tape. If the file is assigned to a disk unit, 
the card images must be stored one card per sector 
in the move mode. 

OUTPUT File. The output file may contain the re¬ 
sults of the operation specified in the run card. It 
can be assigned to the card punch, or to disk stor¬ 
age, or to magnetic tape, or it can be omitted. If the 
file is assigned to a disk unit, any card images will 
be stored one per sector in the move mode. 

LIBRARY File. The library file is a mass-storage file 
that supports the Fortran subprogram facility. The 
file contains standard Fortran functions and subrou¬ 
tines such as the sine and cosine functions. It is 
maintained by the Fortran librarian and used by the 
Fortran loader. The library file can be assigned to 
any available area in disk storage, or to magnetic 
tape. 
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LOADER File. The loader file contains machine-lan¬ 
guage object programs in a relocatable format. It is 
built by the Fortran compiler, and used by the For¬ 
tran loader. The loader file can be assigned to any 
available area in disk storage, or to magnetic tape. 

Note: Of the external files, only input, output, list, and 
loader, can be batched. Batching will be performed when a 
sequence of jobs is processed without intermediate file as¬ 
signments to these external files. When batch processing is per¬ 
formed, input for and output from the processors are stored 
sequentially within the files. 

Internal Files 

WORK1 and WORK2 Files. workI and work2 are re¬ 
quired files. They are used by the Fortran compiler 
for the getex and putex functions that perform the 
large volume of data handling during compilation. 
They can be assigned to any available area in disk 
storage, or to magnetic tape. 

WORK3 File. work3 is a required file. It can be as¬ 
signed to any available area in disk storage, or to 
magnetic tape. The work3 file is used as an out-of¬ 
line file (place) that bypasses data around major 
portions of the compiler. 

WORK4, WORK5 , and WORK6 Files. work4, work5, 
and work6 are not used by the Fortran compiler. 
They are defined for the user’s input/output re¬ 
quirements during the execution of the object pro¬ 
gram produced by the compiler. 

Execution Time 

At execution time, the logical files may be thought of 
as falling into one of two categories. These categories 
are: 

1. Files that are reserved for use by the Fortran sys¬ 
tem. 

2. Files that are free to be used by the user’s program. 

The first category consists of four logical files. They 
are the system, control, library, and loader files. 
The function of these files is essentially the same dur¬ 
ing execution time as it was during compilation. 

The second category consists of the remaining ten 
logical files. The function of each of these files during 
execution time is determined by the user’s program. 
These logical files have each been assigned a Fortran 
numerical file name. The correspondence between For¬ 
tran numerical file names and the System Control Pro¬ 
gram logical file names is shown in Figure 11. 

The Fortran numerical files can be assigned to the 
same devices as the corresponding logical files. For 


example, the input file can be assigned to the card 
reader, or to any available area in disk storage, or to 
magnetic tape. Likewise, numerical file 1 can be as¬ 
signed to the card reader, or to any available area in 
disk storage, or to magnetic tape. Numerical files are 
assigned by using the corresponding logical file name. 

Control Cards 

The System Control Program recognizes eight types of 
control cards. They are: 

RUN 

INIT 

ASGN 

UPDAT 

NOTE 

PAUSE 

COPY 

HALT 

Each type is punched in the Autocoder format. Ap¬ 
pendix I contains a summary of all specific control 
cards that the System Control Program recognizes. In¬ 
cluded in Appendix I is a detailed description of the 
manner of punching each specific control card and 
valid entries for each of the general formats as dis¬ 
cussed in the following sections. All control cards are 
printed on the message file. 

RUN Cards 

The run card indicates the portion of the Fortran sys¬ 
tem that is to be selected by the System Control Pro- 


Fortran Numerical File Name 

System Control Program File Name 

0 

MESSAGE 

1 

INPUT 

2 

OUTPUT 

3 

LIST 

4 

WORK! 

5 

WORK2 

6 

WORK 3 

7 

WORK4 

8 

WORK5 

9 

WORK6 


Figure 11. Correspondence between Fortran Numerical File 
Names and System Control Program File Names 
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gram. A run card is required for four jobs to be per¬ 
formed. The four types of run cards are: 

FORTRAN RUN 
LOADER RUN 

PRODUCTION RUN three-character phase name 
LIBRARY RUN 

See Preparing Jobs for the specific run card format 
required for each job. 

INIT Card 

The init card is used to initialize the system. When 
the init card is sensed, the assumed logical file assign¬ 
ments become effective, and the loader file is initial¬ 
ized to accept a new batch of compiler output. 

The general format of the init card is: 

FORTRAN INIT [any message and/or comment ] 

ASGN Cards 

An asgn card indicates to the System Control Program 
that a logical file is to be assigned to a specific input/ 
output device or area. An asgn card is used when the 
user wants a logical file assigned to an input/output 
device or area other than the assumed assignment of 
the System Control Program, or when the user wants to 
change an assignment that he has previously made. 
The general format for an asgn card is: 

file-name ASGN j j 

The file-name is the specific logical file; device is the 
input/output unit to which the logical file is to be as¬ 
signed. Two examples for using an asgn card follow. 

The logical file, input, is to be changed from the 
assumed device assignment (reader 1) of the System 
Control Program to an area in disk storage. This area 
is to be on 1311 unit 3, beginning at address 000600 
and extending to (not through) 000900. Note that the 
end address to be punched is one more than the area 
actually used by the input file. The asgn card for this 
example is punched: 

INPUT ASGN 1311 UNIT 3, START 000600, END 000900 

The second example is when a logical file is to be 
omitted. (This option is valid only in specific cases.) 
If the output file is to be omitted, the asgn card is 
punched: 

OUTPUT ASGN OMIT 

Blanks must be left between items in the operand 
field where indicated in the specific formats. For ex¬ 
ample, if the operand is reader 2, there must be a 
blank between reader and 2. Also, entries must be left- 
justified in the label, operation, and operand fields. 


During a single stack of jobs, an assignment made 
by the user for a single logical file remains in effect 
until another asgn card is sensed for that particular 
file, or until an init card is sensed, or until a halt card 
is sensed. For example, an asgn card that specifies the 
input file to be assigned to reader 2 causes the as¬ 
sumed assignment, reader 1, to be altered. The System 
Control Program will select reader 2 during a single 
stack until another asgn card for the input file is en¬ 
countered, or until an init card is sensed. 

UPDAT Card 

The updat card is included in a package supplied by 
ibm, or supplied by the user for the purpose of amend¬ 
ing the user’s Fortran system, updat cards supplied by 
ibm are prepunched in the following format: 

5 ALL } 
DELETE ( 
HEADER > 
INSERT \ 
PATCH ) 

This card (excluding delete) will be followed by the 
appropriate data cards. 

NOTE Card 

The note card contains messages and/or instructions 
from the programmer to the machine operator. There 
is no interruption of processing when this control card 
is sensed by the System Control Program. The content 
of the note card is printed on the message file. The 
general format of the note card is: 

NOTE any message and/or instruction 

One application of the use of a note card might be 
in the case where the programmer wants the program 
listing to include the date on which a particular job 
was compiled. The message that could be used for this 
purpose is: 

NOTE JOB NUMBER FOUR COMPILED 6/9/64 

PAUSE Card 

The pause card contains messages and/or instructions 
from the programmer to the machine operator. When 
the pause card is sensed, the content of the pause card 
is printed on the message file. Then, the System Con¬ 
trol Program temporarily halts the system. Processing 
is resumed by pressing the start key. The general for¬ 
mat for the pause card is: 

PAUSE any message and/or instruction 

One application of the use of a pause card might be 
in the case where the input file for a job is located on 


! processor-name 
SYSTEM 
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disk unit 2. The programmer can inform the machine 
operator of this fact by using a pause card, telling him 
to ready the drive. The message would be: 

PAUSE READY THE PACK ON DISK DRIVE 2. 

COPY Card 

The copy card is applicable only to tape-resident sys¬ 
tems. It is used when the user wants to duplicate the 
system tape. The copy option permits the user to du¬ 
plicate the system file, including the library file if it 
resides on the same tape, on another tape (workI). The 
general format for the copy card is: 

COPY [any message and/or identification ] 

HALT Card 

The halt card indicates to the System Control Pro¬ 
gram that processing has been completed. It is the last 
card of a stack. The content of the halt card is printed 
on the message file. The general format for the halt 
card is: 

HALT [any message and/or identification ] 


Fortran Processor Program 

The Fortran Processor Program is made up of the fol¬ 
lowing: 

Fortran compiler 
Fortran loader 
Fortran library 

The following sections contain a description of the 
various components of the Fortran Processor Program 
and a description of the output from the components, 
to include a description of any diagnostic messages 
that the user may receive as a result of processing 
operations. 


Fortran Compiler 

The Fortran compiler is the processing element of the 
processor program. It operates under control of the 
System Control Program. The compiler translates 
source program statements written in the Fortran lan¬ 
guage into machine-language and interpretative in¬ 
structions in a relocatable format. These instructions 
are then acceptable to the Fortran loader. 


Instructions in the relocatable format contain sym¬ 
bolic and relative addresses. These addresses are rela¬ 
tive to a base address of 001. These symbolic and rela¬ 
tive addresses are converted to actual addresses by the 
Fortran loader. The result of this conversion is an ob¬ 
ject program in the absolute format. 

Relocatable formats permit inclusion of several re¬ 
locatable programs at load time. Inter-program com¬ 
munication is accomplished by the use of symbolic 
names, whose corresponding addresses are substituted 
at load time by the Fortran loader. 

Compiling Variables 

Five compiling variables are available in the compiler. 
These variables include: 

1. Integer size (the number of significant digits) to be 
used at object time. 

2. Real size to be used at object time. 

3. Object machine size. 

4. Availability of the multiply/divide feature. 

5. Main program name. 

These variables can be specified by using compiler op¬ 
tion control cards. A description of each of these vari¬ 
ables follow. 

Integer Size. The assumed integer size is 5. Preceding 
a compilation, the object-time integer size, k, can be 
specified to be any value from 1 through 20. 

Real Size. The assumed real size is 8. Preceding a 
compilation, the object-time real size, f, can be speci¬ 
fied to be any value from 2 through 20, where f is the 
mantissa length. The compiler will reserve / + 2 po¬ 
sitions for each real variable to allow for a 2-digit 
exponent. 

Object Machine Size. The assumed object machine 
size is 07999. If the object machine is greater than 
the assumed value, the highest core storage address 
available at object-time can be specified to serve as a 
base address for common storage. 

Multiply/Divide Feature. The multiply/divide feature 
is assumed to be available in the object machine. If 
the feature is not available, this fact can be specified 
by using a compiler control card. 

Main Program Name. The main program (phase) name 
is assumed to be ///. By using a compiler control 
card, the user can specify a main program (phase) 
name that is three alphameric characters in length. 
The name appears on the first card, disk, or tape 
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record of the relocatable output generated by the 
compiler. If an absolute deck is specified to the 
loader, the three characters are included in the first 
card of the absolute deck. These three characters are 
used to identify the program if it is stored as a phase 
on the system file. 

If the program (phase) is to be stored on the sys¬ 
tem file as a phase that can be called for execution 
at any time, the user must make sure that the three 
characters of the program (phase) name are not the 
same as the name of one of the phases of the System 
Control Program and/or the Fortran processor. The 
names of phases of the Fortran processor are in 
the form nnF, where n is numeric. The names of the 
phases of the System Control Program are in the 
form xxy, where x is alphabetic and y is alphameric. 
Appendix II contains the three-character names of 
the phases of both the System Control Program and 
the Fortran Processor Program. Consult the appen¬ 
dix to ascertain that there is no duplication of phase 
names. 

Fortran Compiler Output 

The output from the Fortran compiler is on the de¬ 
vices as specified in the asgn cards. The list file out¬ 
put, with an assumed assignment to be the printer, is 
composed of a source program listing, a name diction¬ 
ary, and a sequence number dictionary. Any or all of 
these types of output can be omitted by using an out¬ 
put option control card. 

Source Program Listing. A listing of the Fortran source 
program is output by the Fortran compiler. The list¬ 
ing is made up of input card images and a compiler¬ 
generated sequence number. A sequence number 
appears in front of each card except for a comment 
card. An example of a source program listing is 
shown in the sample program included as Appendix 
IV. 

Name Dictionary. A name dictionary is made up of 
the names of simple variables and/or arrays that are 
included in the source program. Associated with 
each variable and/or array is the corresponding 
object-time relocatable address. These addresses are 
relative to a base address of 001. An array-name ad¬ 
dress corresponds to the first element of the array. 
An example of a name dictionary is shown in the 
sample program included as Appendix IV. 

Sequence Number Dictionary. The sequence number 
dictionary is made up of the compiler generated se¬ 
quence numbers and the corresponding object-time 
relocatable addresses. These addresses are relative 
to a base address of 001. The address indicates the 


position of the first character of the transformed 
statement. 

Sequence numbers do not necessarily appear in 
order in the dictionary. Further, a sequence number 
may appear twice in the dictionary. (This could oc¬ 
cur in the case of a read/write statement. A se¬ 
quence number would represent the actual input/ 
output subroutine call; the same sequence number 
would represent the transformed I/O list.) Specifica¬ 
tion statement sequence number addresses appear 
in the dictionary with the addresses equivalent to 
another sequence number address. 

In addition to output on the list file, the user can 
specify, by way of an output asgn card, that a 
punched-card deck in the relocatable format be pro¬ 
duced by the compiler. This card deck is the same 
object program that is located on the loader file in 
mass storage. When a punched-card deck is specified, 
the user has the option of specifying that the relo¬ 
catable object program on the loader file be omitted. 
(This is accomplished by using an asgn omit card.) 
Although it is possible to have the object program in 
the relocatable format on both the loader file and the 
output file, generally only one form of output is 
chosen. 

Fortran Compiler Diagnostics 

Diagnostic information is produced pertaining to the 
intelligibility and consistency of the source program as 
defined by the language specifications section of this 
publication. If an error is detected by the compiler, a 
message is printed on the list file informing the user 
of his error. The message printed on the list file can 
have a maximum of three parts. * 

The first part of the message is a flag that indicates 
the severity of the error. A single asterisk (*) indicates 
a diagnostic of a warning type. A single asterisk allows 
compilation to continue and relocatable output is pro¬ 
duced. 

Three asterisks (***) indicate a severe error, and 
compilation is suspended. When this type of error oc¬ 
curs, the message 

COMPILATION SUSPENDED-REMOVE NECESSARY 
CARDS FROM READER 

is printed on the list file. In these instances, control 
is returned to the System Control Program, and a con¬ 
trol card for the next job is read. 

The second part of the message is the sequence num¬ 
ber of the statement in error. In certain cases, the 
sequence number is not included as a part of the mes¬ 
sage. For example, if the name table is being searched 
and an error occurs, no sequence number is included 
in the message. 
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FORTRAN RUN 



C 


SAMPLE PROGRAM TO DEMONSTRATE TYPES OF COMPILER DIAGNOSTICS. 

SAMPLE / 

001 



DIMENSION AC 5) 

SAMPLE 

002 



1=1 

SAMPLE 

003 


1 

READ (5,2) All) 

SAMPLE 

004 


2 

FORMAT ( I OXi2F10.3) 

SAMPLE 

005 



WRITE (3,3) I 

SAMPLE 

006 


3 

FORMAT (IX,14HRUN NUMBER IS 13,//17H0BEGIN PROCESSING ////) 

SAMPLE I 

007 



B(I)=SQRT(A(I)) 

SAMPLE I 


C 


ADDITIONAL STATEMENTS FOR PROCESSING. 

SAMPLE / 

008 



PAUSE 

SAMPLE l 

009 



GO TO 1 

SAMPLE \ 

010 



END 

SAMPLE 1 

NAME 

DICTIONARY 

■ 

00056 

A 

00061 I 

--- ^ 

r ------ 


*** DIAGNOSTICS *** 


FLAG SEQ MESSAGE 

*** 007 ARITHMETIC STATEMENT,ARRAY NOT DIMENSIONED (B) 

* 006 FORMAT STATEMENT,IMPROPER ELEMENT SEQUENCING (,) 

COMPILATION SUSPENDED-REMOVE NECESSARY CARDS FROM READER. 


Figure 12. Erroneous Coding and Resulting Diagnostics 


The third part of the message is the diagnostic itself. 
The diagnostic can include the type of statement in 
error and in some cases the portion of the statement 
being processed when the error occurred. The portion 
of the statement being processed is enclosed within 
parentheses. 

Figure 12 is an example of erroneous coding and 
the diagnostic messages that result. The first error is 
the three-asterisks type that causes compilation to be 
suspended. In sequence number 007, array B, (en¬ 
closed within parentheses in the last part of the diag¬ 
nostic), was not dimensioned in the source program. 

The second error is the one-asterisk type that allows 
compilation to proceed. These are merely warnings to 
the programmer. In sequence number 006, a comma, 
(enclosed within parentheses in the last part of the 
diagnostic), incorrectly appeared in a format state¬ 
ment. In statement 006, the second comma must pre¬ 
cede 13 rather than follow 13. Further, a comma should 
not separate the 13 and the / in a format specification. 

An additional diagnostic message can appear in the 
sequence number dictionary. The diagnostic message 

***UNDEF STMT NO*** 

will appear in the sequence number dictionary follow¬ 
ing the sequence number whose associated source 


statement contains a reference to an undefined state¬ 
ment number. 

If an error is made when punching a compiler option 
control card, the content of the card is output on the 
list file beginning in position one, and the message 

**BAD CONTROL CARD** 
appears in positions 61-80. 

Fortran Loader 

The Fortran loader operates on the relocatable object 
programs that are produced by the Fortran compiler. 
It operates under control of the System Control Pro¬ 
gram. The function of the Fortran loader is to load ob¬ 
ject programs in the relocatable format into core stor¬ 
age. It relocates addresses and provides linkage among 
die programs, when appropriate. Optionally, the loader 
produces the relocated object program on the output 
file in absolute format, or on the list file as a storage 
print, or starts the execution of the program. 

Under normal operations, the relocatable object pro¬ 
grams are present on the loader file in mass storage 
(disk or tape). Therefore, during a loader run, the 
loader file is always referenced by the Fortran loader. 

When the loader file is assigned to mass storage, the 
relocatable programs are read into core storage when 
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a control card designating execution or no execution 
is sensed. At this point, the entire content of the loader 
file is read into core storage. Subprograms from the 
library file are then included, if appropriate. 

If the user has specified a punched-card deck as a 
result of the Fortran compiler processing, the loader 
file must then be assigned by the user to the card 
reader to which the control file is assigned. (All card 
input for the Fortran loader must be from the same 
device.) 

When the loader file is assigned to a card reader, 
the relocatable programs must be read into core stor¬ 
age before the execution or no execution card is sensed. 
(The execution or no execution card is the last control 
card of the input for loader processing.) For this rea¬ 
son, an additional card, an include card, is required 
preceding the relocatable programs to signal the For¬ 
tran loader that programs from the loader file need 
not be included when the last control card is encoun¬ 
tered. Instead, inclusion of required library routines 
takes place. 

If additional programs are to be present during 
loader processing, the user can specify the location of 
these programs in mass storage by way of asgn cards. 
These areas would be referred to as the logical files 
input and work files. The user would have to supply 
an include card for each of the logical files that is as¬ 
signed. With the include card, the user could specify 
the entire file be read into core storage along with the 
main program from the loader file. Further, if the 
entire file is not required, the user could specify by 
name a specific program to be read into core storage 
along with the main program. Subprograms from the 
library file are then included. 

If more than one set of relocatable programs is on 
the loader file, i.e., the programs are batched, the user 
normally would want to process all the programs at 
one time. If this is the case, the loader relocates and 
loads all programs encountered until the end of the file 
is sensed. If the file is a disk unit, a record with IbEOF 
as the first five characters signifies the end of the file. 
A tape mark signifies the end of the file for tape files. 
The last card in a deck signifies the end of the file for 
card files. When batching is performed by the compiler 
on the loader file, an end-of-file is always defined. 

When a program is to be executed after loader proc¬ 
essing, the loader prepares core storage for execution. 
The loader overlays itself with a standard overlay 
package. This overlay package consists of an arithmetic 
interpreter and various input/output routines. The 
users program is then executed. 

If a program is not to be executed after loader proc¬ 
essing, control returns to the System Control Program, 
which reads the next card in the control file. 


Fortran Loader Output 

The Fortran loader can produce three types of output. 
Unless specified to the contrary by an output option 
control card, a name map is output on the list file. By 
way of an output option control card, the user can 
specify that an absolute deck be produced on the out¬ 
put file and a storage print be produced on the list file. 

Name Map. Unless the user specifies otherwise, a 
name map is produced on the list file. The name 
map is a table that includes all external names as¬ 
signed during the loading process. Each name is as¬ 
sociated with its absolute address. The user can then 
determine all entry points for the subprograms 
within the object program. 

Absolute Deck. By using an output option control 
card, the user can specify that an absolute deck be 
produced on the output file. The absolute deck is 
made up of the entire relocated program, including 
the loader overlay package for the processor ma¬ 
chine being used for the loader run. This deck can 
then be stored as a phase on the system file for sub¬ 
sequent runs on the same processor machine used 
during the loader run. When this is done, the phase 
(absolute deck) can be selected from the system file 
by using a three-character phase name. The three- 
character phase name is the three-character main 
program name specified to the compiler. The three- 
character phase name appears in columns 78-80 of 
each card of the absolute deck. It also appears in 
columns 21-23 of the first card of the absolute deck, 
which is an updat insert card. The deck is se¬ 
quenced in columns 73-75, beginning with 001. 

Storage Print. By using an output option control card, 
the user can specify that a storage print be produced 
on the list file. The storage print shows the absolute 
locations of the programs that were loaded and relo¬ 
cated. The storage print does not include the overlay 
package. 

Fortran Loader Diagnostics 

Incorporated within the Fortran loader is the capabil¬ 
ity for recognizing error conditions that may occur dur¬ 
ing the loading process. These error conditions may 
prevent the successful completion of the user’s pro¬ 
gram. The conditions are diagnosed by the loader, and 
an error indicator is output on the list file and a halt 
occurs. The error indicator, error n, is in character 
positions 81 through 87. Character positions 1 through 
80 contain the input record currently being processed. 

Figure 13 shows the error conditions that may arise, 
and the action that is taken if the system is restarted. 
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Object Time Diagnostics 

Conditions may arise during the execution of the ob¬ 
ject program that the system recognizes as being er¬ 
roneous. A message is printed unconditionally on the 
printer, starting at print position one. Messages are in 
the form 

XXX YYY 

where xxx is the error code for arithmetic errors and 
input/output routines, and yyy is the address of the lo¬ 
cation following the branch to the read/write subrou¬ 
tine or the interpreter. The remainder of the printed- 
line contains the current contents of a work area. The 
system does not halt when these errors occur. 

Codes (xxx) for arithmetic errors, the meaning of 
the codes, and the values that are used by the object 
program follow. 


xxx Code 

Meaning 

Value used in 
Object Program 

NOF 

Exponent overflow dur¬ 
ing normalization 

±.99.. 

. E99 

DZE 

Attempt to divide by 
zero 

±.99.. 

. E99 

EOF 

Exponential greater 
than 10" 

±.99.. 

. E99 

LNZ 

Logarithm of zero 

±.99.. 

. E99 

SCL 

Sine or cosine argument 
too large 

zero 





Value used in 

x Code 

Meaning 

Object Program 

LNN 

Logarithm of negative 
number 

In | arg | 

ZTZ 

Zero raised to zero 
power 

one 

SQN 

Square root of negative 
argument 

Al\ arg | 


Codes (xxx) for input/output routine errors, the 
meaning of the codes, and the action that is taken in 
the object program as a result of the error follow. 


xxx Code 

Meaning 

Result 

E01 

read/write statement 
with no list or format 
statement. 

The next statement 
is processed. 

E02 

List exceeds the logi¬ 
cal record on an un¬ 
edited READ. 

The next statement 
is processed. 

E03 

Variable type and con¬ 
version specification do 
not match. 

The next statement 
is processed. 

E04 

Edited record is too 
long. 

The next statement 
is processed. 

E05 

End of format de¬ 
tected twice with the 
same list element. 

The next statement 
is processed. 

E06 

Edited record was ex¬ 
ceeded while process¬ 
ing H-conversion field. 

The next statement 
is processed. 


Message 

Meaning 

Action if Restarted by Pressing START on the Console 

ERROR 0 

Arithmetic interpreter was not found in the library. 

A storage print and a name map are output on the LIST file. 
Execution is suppressed, and control returns to the System 
Control Program, which reads the next card in the 

CONTROL file. 

ERROR 1 

COMMON area of the program being loaded does not match 
a previously encountered COMMON area. 

ERROR 2 

Integer size and/or real size is inconsistent. 


ERROR 3 

Core storage is exceeded. 


ERROR 4 

Loader control card was not recognized. 


ERROR 5 

The subprogram whose name appears on the LIST file along 
with ERROR 5 was not found in the library. 


ERROR 6 

The name that appears on the LIST file along with ERROR 

6 was multiply defined. 


ERROR 7 

Main program not included. 


ERROR 8 

Name table overflow. 


ERROR 9 

Library header record not present where the library is 
assigned. 



Figure 13. Fortran Loader Diagnostic Messages 
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xxx Code 

Meaning 

Result 

E07 

Unrecognizable char¬ 
acter in E-, F-, or I- 
conversion input. 

Assumed value is 
zero. 

E08 

Too many signs in E-, 
F-, or I-conversion in¬ 
put. 

Assumed value is 
zero. 

E09 

Too many decimal 
points in E-, F-, or 
I-conversion input. 

Assumed value is 
zero. 

E10 

Exponent is more than 
two positions in E- 
conversion input. 

Rightmost position(s) 
are lost. 

Ell 

No exponent after “E” 
in E-conversion input. 

Assumed value is 
zero. 

E12 

Exponent specified in 
F-conversion input. 

Treated as E-con¬ 
version input. 

E13 

Exponent overflow in 

E- or F-con version 
input. 

Assumed value is 
zero. 

E14 

Decimal point or ex¬ 
ponent with I-conver¬ 
sion input. 

Assumed value is 
zero. 

E15 

Input data field is 
longer than variable. 

Assumed value is 
zero. 

E16 

L input, and first non¬ 
blank character not 
“T” or “F”. 

Assumed value is 

.FALSE. . 

E17 

backspace references 
file not previously ref¬ 
erenced. 

The next statement 
is processed. 

E18 

end file references 
device other than a 
mass-storage device. 

The next statement 
is processed. 

E19 

find references disk 
unit with inoperative 
access mechanism. 

Press start on the 
console to retry the 
disk I/O operation. 

E20 

Illegal variable file 
specification. 

The next statement 
is processed. 


xxx Code 

Meaning 

Result 

E21 

Illegal characters in 
object-time format. 

The next statement 
is processed. 

E22 

Disk area exceeded, 
and end-of-file was 
sensed during write 
operation. 

The next statement 
is processed. 

E23 

Parenthesis mismatch 
in object-time 

FORMAT. 

The next statement 
is processed. 

E24 

H-conversion field ex¬ 
tended beyond the end 
of the record in ob¬ 
ject-time FORMAT. 

The next statement 
is processed. 

EOJ 

A 7-8 punch in col¬ 
umn 1 was detected 
during a read opera¬ 
tion. 

Control is returned 
to the System Con¬ 
trol Program, which 
reads the next con¬ 
trol card. 


Fortran Library 

The Fortran library is made up of standard Fortran 
functions and subroutines. Collectively, the functions 
and subroutines are referred to as subprograms. These 
subprograms are included in the user’s program at load 
time, just before execution. 

The Fortran library is built and maintained by the 
librarian. The expansion capability of the system per¬ 
mits the user to code subroutines and place them in 
the library. The method for adding (or deleting) sub¬ 
routines from the library is described in Preparing Li¬ 
brary Jobs. 

The standard subprograms supplied by ibm are de¬ 
fined in the language specifications section of this pub¬ 
lication. 
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Operating Procedures 


Jobs 

The Fortran system performs two major operations. 

1. Translates source programs into object programs. 

2. Starts the execution of object programs. 

Because these operations are performed by the Fortran 
processor part of the system, the operations are called 
processor jobs. 

Two other operations, maintaining the Fortran sub¬ 
program library and updating the Fortran system, are 
also considered jobs. Maintaining the Fortran subpro¬ 
gram library is called a library job. Updating the For¬ 
tran system is called an update job. Update jobs are 
described in Updating a Fortran System. 

Under control of the System Control Program, it is 
possible to perform one or more jobs without operator 
intervention. This process is called stack processing. If 
the system resides on disk, or if the system resides on 
tape unit 2, 3, 4, 5, or 6, a stack is always made up of 
the card-boot deck, a system asgn card, the particular 
job(s) to be performed, and a halt card. If the system 
resides on tape unit 1, a stack is made up of the par¬ 
ticular job(s) to be performed and a halt card. (Press¬ 
ing the tape load key serves the same function as the 
card boot and the system asgn card when the system 
tape is on unit 1.) 

In performing a job, the following factors must be 
taken into consideration. 

1. The kind of input for the job. 

2. The use of the logical files. 

3. The machine-operator procedures to be followed. 

The kinds of input for processor jobs and library jobs 
are discussed in the following sections ( Preparing Proc¬ 
essor Jobs and Preparing Library Jobs). 

The general use of logical files is discussed in Logi¬ 
cal Files. 

In most cases, the user does not need to be con¬ 
cerned about the logical files because the Fortran sys¬ 
tem defines the files and assigns them to specific input/ 
output devices. In the description of preparing proc¬ 
essor jobs that follows, any file assignment that the user 
must make is explained. 

The machine-operator procedures to be followed are 
described in Performing Jobs. 


Preparing Processor Jobs 

This section describes each processor job. They are: 

FORTRAN RUN 
LOADER RUN 
PRODUCTION RUN 

Each processor job description includes: 

1. Assumed input device. This entry refers to the de¬ 
vice on which the input is assumed to be located. 
For the 1402, reader 1 means that the cards are 
selected into stacker 1. For the 1442, reader 1 
means unit 1. 

2. Input. This entry refers to the type of input for the 
job. 

3. Assumed output devices. This entry refers to the de¬ 
vice^) on which the output is assumed to be lo¬ 
cated. For the 1403, printer 2 means that 132 print 
positions are available. For the 1443, printer 2 
means that 144 print positions are available. For the 
1402, punch 4 means that the cards are selected into 
stacker 4. For the 1442, punch 1 means unit 1. 

4. Output. This entry refers to the type of output that 
the user always gets as a result of the job, unless 
specified otherwise. 

5. Output options available. This entry refers to the 
type of output the user can get by using output 
option cards. 

6. Required user assignments. This entry describes any 
additional logical file assignments that the user must 
make to perform the job. 

7. Control cards. This entry describes the method of 
punching any required control cards and output op¬ 
tion cards. 

8. Arrangement. This entry references a figure that 
shows the manner of arranging card input for the 
job. 

Notes. 

1. Any logical file assumed assignment can be changed. If the 
user wishes, he can change the assignment by using an 
asgn card. 

2. note and pause cards can be placed between, but not 
within, job decks. 
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FORTRAN RUN 

This is the type of run that translates a source program 
written in the Fortran language into an object program 
in the relocatable format. The output for this run is 
then ready for processing by the Fortran loader. 

Assumed Input Device, input file on reader 1. 

Input. Source program. 

Assumed Output Devices, message file on printer 2; 
list file on printer 2; loader file on 1311 or 1301 
UNIT 0, START 010000, END 012000 Or TAPE UNIT 3. 

Output. 

1. Source-statement diagnostics on the list file, if 
errors are sensed. 

2. Source program listing on the list file, unless an 
output option control card specifies that the listing 
be omitted. 

3. Name dictionary on the list file, unless an output 
option control card specifies that the name diction¬ 
ary be omitted. 

4. Sequence number dictionary on the list file, un¬ 
less an output option control card specifies that the 
sequence number dictionary be omitted. 

5. Object program in the relocatable format on the 
loader file, unless the loader file has been omitted. 

Output Options Available. Object program in the re¬ 
locatable format on the output file. 

Required User Assignments. If the object program is 
to be written on the loader file, no file assignments 
are required. If the user wants the object program 
on the output file, an output asgn card is required. 

Control Cards. 

1. The run card is the only required control card. 
Punch the run card in the following manner. 

Columns Contents 

6-12 FORTRAN 

16-18 RUN 

2. If the object program is to be on the output file, 

an output asgn card is required. This card must pre¬ 

cede the run card. Generally, the only time that the 
user would want to use the output file is when a 
punched card deck in the relocatable format is de¬ 
sired. If this is the case, punch the output asgn card 
in the following manner: 


Columns Contents 

6-11 OUTPUT 

16-19 ASGN 

21-27 punch n 

If the output file is assigned to punch n, n can be 
0, 4, or 8 for 1402, 1 or 2 for 1442, 3 for 1444. 

If the output file is assigned, the user may wish 
to omit the loader file. If this be the case, a loader 
asgn card is required and must precede the run 
card. Punch the loader asgn card in the following 
manner. 

C olumns C ontents 

6- 11 LOADER 

16- 19 ASGN 

21-24 omit 

3. The following cards are output option control 
cards and compiler option control cards. They are 
used when any of the options are desired. The op¬ 
tion cards immediately precede the Fortran source 
program in the input file and can be in any order. 
Option control cards are output on the list file. 

a. If the integer size is to differ from the assumed value of 5, 
punch the following card. Note: 01 < nn < 20. 

Columns Contents 

1-8 $INTEGER 

10-13 size 

15 = 

17- 18 nn 

b. If the real size is to differ from the assumed value of 8, 
punch the following card. Note: 02 < nn < 20. 

Columns Contents 

1-5 $REAL 

7- 10 size 

12 = 

14-15 nn 

c. If the object machine differs from the assumed value of 
07999, punch the following card. Note: 07999 < nnnnn 
< 15999. 


Columns 

Contents 

1-7 

$OBJECT 

9-15 

MACHINE 

17-20 

SIZE 

22 

= 

24-28 

nnnnn 

If the multiply/divide feature is not present in the ob¬ 
ject machine, punch the following card. (The multiply/ 
divide feature is assumed by the Fortran compiler to be 
available.) 

Columns 

Contents 

1-3 

$NO 

5-12 

MULTIPLY 

14-19 

DIVIDE 
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e. If the main program (phase) name differs from ///, punch 
the following card. Note: name is three alphameric char¬ 
acters in length. If the program is to be stored as a phase 
on the system file, the arrangement of the three char¬ 
acters must be unique, i. e., the arrangement must differ 
from: 

1. Any phase name of the System Control Program 

2. Any phase name of the Fortran Processor Program 

3. Any phase name that the user may have added to the 
system file. 

Columns Contents 

1-6 $PHASE 

8-11 NAME 

13 = 

15-17 name 

f. If no source program listing is desired, punch the fol¬ 
lowing card. 

Columns Contents 

1-3 $NO 

5-8 LIST 


Fortran Source Deck 


Figure 14. fortran run with control and input Files As¬ 
signed to the Same Device 



Input. Object program(s) in the relocatable format. 


g. If no name dictionary listing is desired, punch the fol¬ 
lowing card. 

Columns Contents 

1-3 $NO 

5-8 NAME 

10-19 DICTIONARY 

h. If no sequence number dictionary is desired, punch 
the following card. 

Columns Contents 

1-3 $NO 

5-12 SEQUENCE 

14-19 NUMBER 

21-30 DICTIONARY 

i. If neither the name dictionary nor the sequence number 
dictionary is desired, punch the following card. 

Columns Contents 

1-3 $NO 

5-14 DICTIONARY 

Arrangement. The arrangement of input cards for a 
fortran run is shown in Figures 14 and 15. The out¬ 
put option cards must be in the input file and can be 
in any order. 

LOADER RUN 

This is the type of run that changes object programs in 
the relocatable format into object programs in the 
absolute format, establishing interprogram communica¬ 
tion and including required subprograms from the sub¬ 
program library. These object programs can be exe¬ 
cuted at the completion of the loader run, or at a later 
time, depending on the wishes of the user. 

Assumed Input Device, loader file on 1311 or 1301 
UNIT 0, START 010000, END 012000 Or TAPE UNIT 3. 


Assumed Output Devices . list file on printer 2, out¬ 
put file on punch 4 (1401 or 1460 systems) or punch 
1 (1440 systems). 

Output. 

1. Loader diagnostic messages on the list file,, if 
errors are sensed. 

2. Name map on the list file, unless an output option 
control card specifies that the name map be omitted. 

Output Options Available. 

1. Storage print on the list file, if an output option 
card is included that specifies a storage print. 



Figure 15. fortran run with control and input Files As¬ 
signed to Different Devices 
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2. Object program card deck in the absolute format 
on the output file, if an output option card is in¬ 
cluded that specifies an absolute deck. 

Additional Results. At the completion of a loader 
run, the program is ready for execution. 

Required User Assignments. If the object program in 
relocatable format is on the loader file, no user-as¬ 
signment is required. If the object program in relo¬ 
catable format is on any other file (input, workI- 
work6), an asgn card is required designating this 
file. In this case, an associated output option card is 
required. 

Control Cards. 

1. Punch the required run card in the following 
manner. 

Columns Contents 

6-11 LOADER 

16-18 RUN 

2. Generally, the object programs in the relocatable 
format are in the loader file in disk storage. The 
loader file is assumed to be assigned to a specific 
area and/or device by the System Control Program. 
When this is the case, no asgn cards preceding the 
run card and/or loader control cards following the 
run card are required. 

Loader control cards and/or asgn cards are re¬ 
quired in the following cases. One of these cases 
apply to specific instances. 

a. If the relocatable object programs are a punched-card 
deck, the user can assign the loader file to the reader 
prior to starting the loader run. To make this assignment, 
punch the following card. 

Columns Contents 

6-11 LOADER 

16-19 ASGN 

21-28 READER n 

If the reader is 1402, n represents the pocket into which 
the cards are stacked, and can be 0, 1, or 2. If the reader 
is 1442, n represents the number of the unit, and can 
be 1 or 2. 

If this option is taken, the punched-card deck must be 
preceded by a card punched in the following manner. 


Columns 

Contents 

1-8 

$INCLUDE 

16-18 

LDR 

21-23 

three-character main program name 

or 

or 

21-26 

six-character subprogram name 


b. If the relocatable object programs are a punched-card 
deck, and the input file is assigned to the card reader. 


precede the card deck with an include card punched in 


the following 

manner. 

Columns 

Contents 

1-8 

$INCLUDE 

16-18 

INP 

21-23 

three-character main program name 

or 

or 

21-26 

six-character subprogram name 


c. If the relocatable object programs are stored on a mass- 
storage device (disk or tape), the locations can be refer¬ 
enced by calling the areas input or women files, (worku 
can be workI through work6). When this is the case, an 
asgn card must precede the run card and designate the 
location of the programs in mass storage. Punch the asgn 
card in the following manner. 


Columns 

Contents 

6-10 

input, or workI, or work 2, or 
work3, or work4, or work5, or 
work6 

16-19 

ASGN 

21-57 

1311 unit n, start nnnnnn, end nnnnnn 

or 

1301 unit n, start nnnnnn, and nnnnnn 

or 

or 

21-31 

TAPE UNIT n 


For disk units, n represents the number of the unit, and 
can be 0, 1, 2, 3, or 4; nnnnnn represents a disk address. 
For tape units, n represents the number of the unit, and 
can be 1, 2, 3, 4, 5, or 6. 

If this option is chosen, an include card must be in¬ 
cluded with the loader option cards. If no option cards 
are present, the include card must follow the run card. 
Punch the include card in the following manner. 


Columns 

Contents 

1-8 

$INCLUDE 

16-18 

inp, or wkI, or wk2, or 
wk3, or wk4, or wk5, or wk6 

21-23 

three-character main program name 

or 

or 

21-26 

six-character subprogram name 


3. One of the following two cards must be the last 
card of the input to a loader run job and, when 
appropriate, precedes the data cards. They indicate 
to the system whether the object program is to be 
executed immediately after the loader run. 

a. If execution is desired, punch the following card. 

Columns Contents 

1-10 $EXECUTION 

b. If execution is not desired, punch the following card. 

Columns Contents 

1-3 $NO 

5-13 execution 

4. If tapes are used at object-time with a disk-resi¬ 
dent system, the user must ensure that the loader 
includes the tape read/write subroutine by punch¬ 
ing the following control card. 

Columns Contents 

1-5 $TAPE 

7-16 SUBROUTINE 
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5. The following cards are output option control 
cards. They are used when any of the options are 
desired. The option cards immediately follow the 
run card on the control file and can be in any 
order. The user can change the file on which each of 
these options is to be placed by using a three-char¬ 
acter file name. The correspondence between the 
three-character file names and the actual file names 
is shown in Figure 16. Option control cards are out¬ 
put on the list file. 

a. If an absolute deck is desired, punch the following card. 
Unless otherwise specified in columns 21-23, the deck 
will be on the output file. 

Columns Contents 

1-9 $ ABSOLUTE 

11-14 DECK 

21-23 [; three-character file name ] 

b. If a storage print is desired, punch the following card. 
Unless otherwise specified, the storage print will be on 
the list file. 

Columns Contents 

1-8 $STORAGE 

10-14 PRINT 

21-23 [three-character file name] 

c. If no name map is desired; punch the following card. 

Columns Contents 

1-3 $NO 

5-8 NAME 

10-12 MAP 

Arrangement. The arrangement of input cards for a 
loader run is shown in Figures 17 and 18. The out¬ 
put option cards must be in the control file and can 
be in any order. 

Note: If execution is to follow immediately after the 
loader run, indicated by a $execution card, the user must 


File Name 

Three-Character File Name 

MESSAGE 

MSG 

INPUT 

JNP 

OUTPUT 

OUT 

LIST 

LST 

WORK! 

WK1 

WORK2 

WK2 

WORK3 

WK3 

WORK4 

WK4 

WORK5 

WK5 

WORK6 

WK6 


Figure 16. Equivalence Between Logical File Names and 
Three-Character File Names 



Figure 17. loader run with control and loader Files As¬ 
signed to the Same Device 


make sure that any Fortran numerical files referenced in the 
program have been assigned to the correct input/output 
devices. If asgn cards are required to change file assign¬ 
ments, the cards precede the loader run card. Further, the 
user must make sure that the files referenced during a 
loader run do not conflict with files referenced in the object 
program. 


PRODUCTION RUN 

This is the type of run that executes an object program 
in the absolute format. In order to perform a produc¬ 
tion run, the object program must be in the system 
file, stored as a phase of the Fortran system. The 
method for placing the object program in the system 



Figure 18. loader run with control and loader Files As¬ 
signed to Different Devices 


49 





file is described in the following section, Preparing 

User-Update Jobs. 

Assumed Input Device. For 1301, the system file is on 
unit 0. For 1311, and for tape, the unit is user- 
assigned. 

Input. Object program in the absolute format, stored 
as a phase of the Fortran system. 

Assumed Output Devices. Not applicable. 

Output. Not applicable. 

Required User Assignments. The unit(s) referenced by 
the source program. 

Control Cards. The required run card is punched in 
the following manner. 

Columns Contents 

6-15 PRODUCTION 

16-18 RUN 

21-23 three-character phase name 

The three-character phase name is the three-charac¬ 
ter name assigned to the program before it was 
compiled. It is the same three-character name that 
appeared in columns 21-23 of the first card of the 
absolute deck that was used to insert the program as 
a phase on the system file. 

Arrangement. The arrangement of input cards for a 
production RUN is shown in Figures 19 and 20. 


Preparing User-Update Jobs 

In order to perform a production run job, it is neces¬ 
sary that the object program in the absolute format be 
present in the system file. This object program deck is 
output by a loader run, when specified by the user. 
Object programs can be inserted on or deleted from 
the system file according to the needs of the user. If 
the system resides on a disk unit, these user-inserted 
phases (object programs in the absolute format) reside 
within the file-protected limits of the system file. 



Figure 19. production run with control and input (Equiv¬ 
alent to Fortran File 1) Files Assigned to the Same 
Device 


On a tape-oriented system, the workI file is used 
in conjunction with the system file when a user-update 
job is performed. After a new phase is inserted (or de¬ 
leted), the new system file is present on workI. Ac¬ 
cording to the needs of the user, the workI file can be 
transferred back to the master tape by performing a 
system-tape copy job. See Duplicating the System 
Tape. Since a system-tape copy job copies from the 
system file to the workI file, the user must make sure 
that the system and workI file assignments used for 
the user-update job are interchanged for the system- 
tape copy job. (Inserting a pause card immediately 
after the user-update job and immediately preceding 
the system-tape copy job provides a temporary halt in 
the system that allows the user to interchange the two 
file assignments.) 

The tape user is advised that when performing an 
updat insert job, the phase after which the new phase 
is to be inserted must be present on the original system 
file. Otherwise, the new phase is inserted at the end of 
the updated system file, present on workI. The order 
of insertions (or deletions) must be the same as on the 
system file. 

Assumed Input Device, control file on reader 1. 

Input. Object deck in the absolute format. This deck is 
obtained by selecting the absolute deck option in a 

LOADER RUN. 

Assumed Output Devices. Not applicable. 

Output. Not applicable. 

Required User Assignments. None. 

Control Cards. 

1. If a phase is to be inserted on the system file, the 
required updat control card is generated by the For¬ 
tran loader. It is the first card of the absolute deck 


^PRODUCTION RUNaaa 

/ INPUT ASGN 



* ASGN Cards 
(if required) 

1 



Figure 20. production run with control and input (Equiv¬ 
alent to Fortran File 1) Files Assigned to Different 
Devices 
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when the user specifies that an absolute deck be 
punched as a result of a loader run. 

Note. If the system file resides on tape, the user must 
specify that the phase be inserted after a particular phase 
on the system file. In order that this be accomplished, punch 
the three-character phase name after which the phase is to 
be inserted in columns 6-8 of the updat control card (the first 
card of the absolute deck). 90F is the name of the last phase 
of the Fortran system. When deleting a phase and inserting 
another phase in its place, it is recommended that these two 
user-update jobs be performed in two separate stacks. 

2. If a phase is to be deleted from the system file, 
punch the following card. 


Columns 

Contents 

6-15 

[any user comments ] 

16-20 

UPDAT 

21-23 

three-character phase name 

24 

comma 

25-30 

DELETE 


In the control card, three-character phase name 
refers to the three-character main program name. 
The phase name appeared in columns 21-23 of the 
absolute deck that was used to insert the phase on 
the system file. 

Arrangement. The arrangement of input cards for a 
user-update job is shown in Figure 21. 


Preparing Library Jobs 

Library jobs are associated with the maintenance of 
the Fortran library. The Fortran library is a mass- 
storage file that supports the Fortran loader. The file 
contains a library table (disk-resident systems only) 
and subprograms, such as standard Fortran functions 
and subroutines. 

The three standard library jobs are: 

1. Library build that enables the user to define a li¬ 
brary file. A library-build job, performed when a 
disk-resident Fortran system is built, defines a li¬ 



brary file on the same disk unit as the system file. 
The limits of this library file are 012000 through 
013899. Thus, the assumed assignment is 1311 or 
1301 unit 0, start 012000, end 013900. 

After the library-build job has been performed, 
the library file contains the library table. The li¬ 
brary table is thirty sectors in length. The user can 
enlarge the name table according to his needs. 

If the system is tape resident, the library is already 
built. As a result, the tape user need be concerned 
only with library changes and library listings. 

2. Library listing that enables the user to get a list of 
the library subprograms and/or the names of the 
subprograms that are in the library file. 

3. Library change that enables the user to modify the 
content of a library file. A library-change job, first 
performed when the disk-resident system is built, 
transfers the subprograms to the library file after 
the file has been defined. 

At the completion of a library job (library run) on 
a disk-oriented system, three messages are printed on 
the list file. The messages are: 

END OF LIBRARY RUN 

LIBRARY ASSIGNED nnnnnn TO nnnnnn 

REMAINING SECTORS nnnnnn TO nnnnnn 

In the message, nnnnnn is a disk address. From these 
messages, the user is able to determine the size of the 
present library, and the number of sectors available 
for any additional subprograms that may be added. 

Any subprogram is stored in disk storage one card 
per sector in the move mode. As the input for a li¬ 
brary run must be in card form, the user can deter¬ 
mine whether a subprogram will fit in the library by 
merely counting the cards in the deck output from a 

FORTRAN RUN. 

If the library file is full and the user wants to add a 
new subprogram, one of two steps can be followed. 

1. The user can define and build a new library. 

2. The user can delete an existing subprogram from 
the library file and insert the new subprogram. 
This can be done if the new subprogram will occupy 
the same number or fewer sectors than the old sub¬ 
program. 

For tape-oriented systems, at the completion of a 
library run, the message, 

END OF LIBRARY RUN 

is printed on the list file. 


51 














































































Library Build 

Library-build jobs apply only to disk-resident systems. 
Each library-build job defines a library file that con¬ 
tains a name table 30 sectors in length. If a table of 
more (or less) than 30 sectors is required, specify the 
sector number desired in the control card. 

The control cards required for a library-build job 
are: 

1. A library asgn card is required if the assignment 
of the library file differs from that assumed by the 
System Control Program. Punch the asgn card in 
the following manner: 

Columns Contents 

6-12 LIBRARY 

16-19 ASGN 

21-57 1311 unit n, start nnnnnn, end nnnnnn 

or 

1301 unit n, start nnnnnn, end nnnnnn 

For disk, the value n indicates the number of the disk unit, 
and can be 0, 1, 2, 3, or 4; nnnnnn represents a disk ad¬ 
dress. The limits of the library must be supplied. 

2. Punch the required run card in the following man¬ 
ner: 


Columns 

6-12 

16-18 


Contents 

LIBRARY 

RUN 


3. Punch the library-build card in the following man¬ 
ner: 

Columns Contents 

16-20 BUILD 

21-23 [nnn] 

The value nnn is used only when the name table is to differ 
from 030 sectors. 

4. The end card must be the last card of a library- 
build job. Punch the end card in the following man¬ 
ner: 


Columns Contents 

16-18 END 


The arrangement of control cards for a library build 
job is shown in Figure 22. The cards are read from the 
control file. 


END 


<L 


XbUILD [nnn ] 


LIBRARY RUN 


/LIBRARY ASGN 
(if required) 


Library Listing 

The user can request three types of library listings. 

1. A listing of the names or headers of all the subpro¬ 
grams in the Fortran library. 

2. A listing of the entries in a specific subprogram. 

3. A listing of the entries in every subprogram. 

The control cards required for a library-listing job are: 

1. A library asgn card is required if the assignment 
of the library file differs from that assumed by the 
System Control Program. See Library Build for the 
format of the asgn card. 

2. The required run card is punched in the following 
manner. 

Columns Contents 

6-12 LIBRARY 

16-18 RUN 

3. One of the following three cards are required for 
the library-listing job. The one that is selected de¬ 
pends upon the type of listing that is required. 

a. If a listing of the headers of all the tape subpro¬ 
grams is required, punch the following card. If a 
listing of the names and disk addresses of all the 
disk subprograms is required, punch the follow¬ 
ing card. The listing is output on the list file. 

Columns Contents 

16-19 LIST 

21-27 HEADERS 

b. If a listing of the entries in a specific subprogram 
is required, punch the following card. The listing 
is output on the list file. 

Columns Contents 

6-11 name 

16-19 list 

name is the six-character name of the specific subprogram 
entries that are required. 

c. If a listing of the entries in every subprogram is 
required, punch the following card. The listing is 
output on the list file. 

Columns Contents 

16-19 LIST 

4. The end card must be the last card of a library¬ 
listing job. Punch the end card in the following 
manner. 

Columns Contents 

16-18 


Figure 22. Library Build 
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END 




/END 


l 


LIST 


LIST 


£ 


LIST HEADERS 


'LIBRARY RUN 


/library ASGN 

(if required) 


One card is required 


Figure 23. Library Listing 

The arrangement of control cards for a library-list¬ 
ing job is shown in Figure 23. The cards are read from 
the control file. 

Library Change 

Fortran subprograms, supplied by ibm or developed 
by the user, can be added, modified, or deleted. 

ibm provides a change deck whenever IBM-supplied 
standard subprograms should be modified. The change 
deck includes a library run card, inser and/or delet 
cards, an end card, and cards containing the changes 
to be made. 

User-change cards must be in the relocatable for¬ 
mat, the result of processing by a fortran run. In ad¬ 
dition to the change cards, the following control cards 
are required for a library change. 

1. A library asgn is required if the assignment of the 
library file differs from that assumed by the System 
Control Program. See Library Build for the format 
of the asgn card. 

2. The required run card is punched in the following 
manner. 

Columns Contents 

6-12 LIBRARY 

16-18 RUN 

3. If a subprogram is to be inserted, punch the follow¬ 
ing card. 

Columns Contents 

16-20 INSER 

If the system is tape-oriented, the new subpro¬ 
gram is inserted after the last subprogram in the 
library file. 

If the system is disk-oriented, the new subpro¬ 
gram is inserted in any'available area in the library 
file. 

If a subprogram by the same name already exists 
in the library file, it is deleted before the new sub¬ 
program is inserted. 


When the system is tape-oriented, the workI file 
is used in conjunction with the library file when a 
subprogram is deleted. Perform a library-copy job 
to transfer the library from the workI file to the 
library file. See Library Copy. 

4. If a subprogram is to be deleted, punch the follow¬ 
ing card. 

Columns Contents 

6-11 name 

16-20 DELET 

name is the six-character name of the subprogram to be 
deleted. 

All delet cards must precede all inser cards. 
When the system is tape oriented, the workI file is 
used in conjunction with the library file when a 
subprogram is deleted. Perform a library-copy job 
to transfer the library from the workI file to the 
library file. See Library Copy. 

5. The end card must be the last card of a library- 
change job. Punch the end card in the following 
manner. 


Columns Contents 

16-18 END 

The arrangement of the control cards and the in¬ 
put for a library change is shown in Figure 24. The 
control cards and the input cards are read from the 
control file. 

If the input for a library-change job contains a 
card that is not recognized by the system, a halt oc¬ 
curs. The message 

CARD NOT RECOGNIZED-BYPASS-CONTINUE 

INSERTION 

is printed on the list file. In order to continue proc¬ 
essing, press START. 



Figure 24. Library Change 
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Library Copy 

The library-copy job is applicable only when the li¬ 
brary file resides on tape. This job is normally per¬ 
formed immediately after a library run. 

When a subprogram is inserted in place of a subpro¬ 
gram having the same name on the library file, or 
when a subprogram is deleted from the existing li¬ 
brary, the workI file is used in conjunction with the 
library file. At the completion of the insertion or dele¬ 
tion, the new or revised library is present on the workI 
file. 

To transfer the library to the library file from 
workI, perform a library-copy job. 

The following cards are required for a library-copy 
job. 

1. A library asgn card is required if the assignment of 
the library file differs from that assumed by the 
System Control Program. See Library Build for the 
format of the asgn card. 

2. The required run card is punched in the following 
manner. 

Columns Contents 

6-12 LIBRARY 

16-18 RUN 

3. The required copy card is punched in the following 
manner. 

Columns Contents 

16-19 copy 

4. The end card must be the last card of a library-copy 
job. Punch the end card in the following manner. 

Columns Contents 

16-18 END 

The arrangement of the control cards is shown in 
Figure 25. The cards are read from the control file. 


Changing File Assignments 

Each logical file defined by the Fortran system, with 
the exception of the system file, is assigned to a spe¬ 
cific input/output device by the System Control Pro¬ 
gram. One set of logical file assignments applies to 
compilation (fortran run). A second set of logical file 
assignments applies to execution (loader run and pro¬ 
duction run). These assignments can be temporarily 
changed by using asgn cards. 

Any assignment made by the user remains in effect 
until: 

1. An asgn card is sensed for the particular logical file, 
or 


2. An in it (initialize System Control Program assign¬ 
ments) card is sensed, or 

3. A halt card is sensed, signifying the end of a stack. 

Preparing ASGN Cards 

asgn cards enable the user to change file assignments 
for one or more jobs in a stack. The general format for 
an asgn card is: 

n . \device ) 

file-name ASGN j OMIT \ 

The file-name is the specific logical file; device is the 
input/output unit and/or area to which the logical file 
is assigned. 

The assumed file assignments and asgn card formats 
relating to specific files are shown in Figure 26. Valid 
device entries are shown in Figure 27. 

asgn cards are coded in the Autocoder format. 
When coding asgn cards, the user must: 

1. Leave blanks between items in the operand field as 
shown in Figure 26. If, for example, the output file 
is to be assigned to disk area 004000 through 004799 
on 1301 unit 1, the user would code the asgn card 
for punching as shown in Figure 28. The end ad¬ 
dress that is coded is the address of the next avail¬ 
able sector, not the address of the last sector to be 
used. 

2. Left-justify entries in the label, operation, and op¬ 
erand fields, as shown in Figure 28. 

File Considerations 

SYSTEM File. If the system file resides on 1311, drive 
0 should be on-line because the System Control Pro¬ 
gram’s assumed assignments are on drive 0. If drive 
0 is not on-line, the user must use asgn cards to 
change the assumed assignments for the library, 
loader, workI, work2, and work3 files. 

CONTROL and INPUT Files. If both the control 
and input files are assigned to a reader, the assign¬ 
ments must be identical. For example, if the system 


|/END 


^COPY 


^LIBRARY RUN 



/LIBRARY ASGN 




(if required) 




Figure 25. Library Copy 
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ASGN Cord Formats 

Assumed Assignment 

Remarks 

Label Field 

(Columns 

6-15) 

Operation 

Field 

(Columns 

16-20) 

Operand Field (Columns 21-72) 

Compilation 
(FORTRAN RUN) 

Execution 

(LOADER RUN or PRODUCTION RUN) 


SYSTEM 

ASGN 


1311 UNIT n ) 

1301 UNIT0 > 

TAPE UNITn ) 

1311 unit: user-assigned 

1301 unit: must be assigned to UNIT 0 

Tape unit: user-assigned 

1311 unit: user-assigned 

1301 unit: must be assigned to UNIT 0 

Tape unit: user-assigned 

If tbe system residence is 1311 or 1301, 
the SYSTEM ASGN card is the only re¬ 
quired ASGN card. It must follow the 
Card Boot in a stack of jobs. Any 
other SYSTEM ASGN cards in the 
stack are flagged and bypassed. If 
the user desires that the Fortran system 
use less than the number of core 
storage positions available in the pro¬ 
cessor machine, punch a comma in 
column 32 and 8K, 12K, or 16K be¬ 
ginning in column 34. If the system 
residence is tape and the tape unit is 

1, neither the Card Boot nor the 

SYSTEM ASGN card is required. 

(Pressing the TAPE LOAD key achieves 
the same purpose as the Card Boot and 
the SYSTEM ASGN card.) If the unit 
is 2, 3, 4, 5, or 6, both the Card Boot 
and the SYSTEM ASGN card are re¬ 
quired to start system operations. 

CONTROL 

ASGN 

( READER n \ 

(CONSOLE PRINTER/ 

READER 1 

READER 1 

If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 

MESSAGE 

ASGN 

( PRINTER n ) 

(CONSOLE PRINTER/ 

PRINTER 2 

PRINTER 2 

When the MESSAGE file is assigned to 
the CONSOLE PRINTER, carriage 
control characters used with the 1403 
or 1443 printer may appear in the mes¬ 
sage . If the MESSAGE file and the 

LIST file are assigned to the printer, 
the assignment must be to the same 
printer. 

LIST 

ASGN 


PRINTER n \ 

1311 UNIT n, START nnnnnn, END nnnnnn 1 
1301 UNIT n, START nnnnnn, END nnnnnn > 
TAPE UNIT n l 

OMIT “ ) 

PRINTER 2 

PRINTER 2 

If the LIST file and the MESSAGE file 
are assigned to the printer, the assign¬ 
ment must be to the same printer. 

INPUT 

ASGN 


READER n ) 

1311 UNITn, START nnnnnn, END nnnnnn f 
1301 UNIT n, START nnnnnn, END nnnnnn l 
TAPE UNIT'S / 

READER 1 

READER 1 

If the INPUT file and the CONTROL 
file are assigned to the reader, the 
assignment must be to the same reader. 

OUTPUT 

ASGN 


PUNCH n \ 

I 1311 UNIT n, START nnnnnn, END nnnnnn 1 

1301 UNIT n, START nnnnnn, END nnnnnn \ 

|TAPE UNIT'S l 

OMIT " J 

OMIT 

PUNCH 4 (1401 and 1460 systems) 

PUNCH 1 (1440 systems) 


LIBRARY 

ASGN 


1311 UNIT n, START nnnnnn, END nnnnnn ) 
1301 UNITn, START nnnnnn, END nnnnnn > 
TAPE UNIT'S ) 

1311 UNIT 0, START 012000, END 013900 
1301 UNIT 0, START 012000, END 013900 
TAPE UNIT 1 

1311 UNIT 0, START 012000, END 013900 
1301 UNIT 0, START 012000, END 013900 
TAPE UNIT 1 

1311 is assumed if the SYSTEM file 
is assigned to 1311. 1301 is assumed 
if the SYSTEM file is assigned to 1301. 
Tape is assumed if the SYSTEM file 
is assigned to tape . 

At execution time (LOADER RUN), 
the LOADER file can be assigned to 
READER n. 

If the MESSAGE, LIST, and WORK5 
files are assigned to a printer, the 
assignment must be to the same printer. 

LOADER 

ASGN 

( 

1311 UNIT n, START nnnnnn, END nnnnnn \ 

1301 UNIT n, START nnnnnn, END nnnnnn / 

TAPE UNITn \ 

(READER n " l 

OMIT " J 

1311 UNIT0, START 010000, END 012000 
1301 UNIT 0, START 010000, END 012000 
TAPE UNIT 3 

1311 UNIT0, START 010000, END 012000 
1301 UNIT 0, START 010000, END 012000 
TAPE UNIT 3 

WORK1 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn ) 
< 1301 UNIT n, START nnnnnn, END nnnnnn > 
(TAPE UNITn ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 4 

1311 UNIT 0, START 006400, END 007200 
1301 UNIT 0, START 006400, END 007200 
TAPE UNIT 4 

WORK2 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn ) 
\ 1301 UNIT n, START nnnnnn, END nnnnnn r 
(TAPE UNIT'S ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 5 

1311 UNIT 0, START 007200, END 008000 
1301 UNIT 0, START 007200, END 008000 
TAPE UNIT 5 

WORK3 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn ) 
\ 1301 UNIT n, START nnnnnn, END nnnnnn > 
(TAPE UNITn ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 4 

1311 UNIT 0, START 008000, END 008500 
1301 UNIT 0, START 008000, END 008500 
TAPE UNIT 6 

WORK4 

ASGN 


1311 UNIT n, START nnnnnn, END nnnnnn ) 
M301 UNIT n, START nnnnnn, END nnnnnn ( 
/TAPE UNIT n ( 

OMIT “ ) 

OMIT 

1311 UNIT 0, START 008500, END 009000 
1301 UNIT 0, START 008500, END 009000 
OMIT for tape systems 

WORK5 

ASGN 


1311 UNIT n, START nnnnnn, END nnnnnn \ 

1301 UNIT n, START nnnnnn, END nnnnnn / 

TAPE UNIT'S > 

PRINTER n “ \ 

,OMIT “ ) 

OMIT 

1311 UNIT 0, START 009000, END 009500 
1301 UNIT 0, START 009000, END 009500 
OMIT for tape systems 

WORK6 

ASGN 


7 

1311 UNIT n, START nnnnnn, END nnnnnn / 
1301 UNIT n, START nnnnnn, END nnnnnn ( 
TAPE UNIT n l 

OMIT “ ) 

OMIT 

1311 UNIT 0, START 009500, END 010000 
1301 UNIT 0, START 009500, END 010000 
OMIT for tape systems 


Figure 26. asgn Card Formats and Assumed Assignments 
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Device Entry and Values of n and nnnnnn 

Remarks 

| 1301 | n, START nnnnnn, END nnnnnn 

n is the number of the disk unit, and can be 0, 1, 2, 3, or 4. 
nnnnnn is a disk address. 

The END address is the address of the next available sector. 

The values of nnnnnn must adhere to the following rules: 

1. WORKI and WORK2 Files. If the disk unit is 1311, the START ad¬ 
dress must be a multiple of 200. If the disk unit is 1301, the START 
address must be a multiple of 800. For both 1311 and 1301, the END 
address must be a multiple of 40. 

2. WORK3, WORK4, WORK5, and WORK6 Files. For both 1311 and 

1301, the START and END addresses must be multiples of 10. 

3. LIBRARY File. For both 1311 and 1301, the START and END 
addresses must be multiples of 20. 

If these rules are violated, the system automatically narrows in the disk 

area to an area that does adhere to these rules. 

TAPE UNIT n 

n is the number of the tape unit, and can be 1,2, 3, 4, 5, or 

6. 


READER n 

For 1402, n can be 0, 1, or 2. 

For 1442, n can be 1 or 2. 

For 1402, n,represents the pocket into which the cards are stacked. For 

1442 or 1444, n represents the number of the unit. 

PUNCH n 

For 1402, n can be 0, 4, or 8. 

For 1442, n can be 1 or 2. 

For 1444, n must be 3. 


PRINTER n 
n can be 1 or 2. 

n represents the number of print positions available on the 1403 or 1443. 

For 1403, a 1 indicates 100 positions and a 2 indicates 132 positions. 

For 1443, a 1 indicates 120 positions and a 2 indicates 144 positions. 

CONSOLE PRINTER 

The console printer must be an IBM 1447 without a buffer feature. 

OMIT 

Select this option when the file is not to be used by the Fortran system. 

The LIST, OUTPUT, LOADER, WORK4, WORK5, and WORK6 files can 
be omitted. 


Figure 27. Valid Device Entries 


is a 1440 and the control file is assigned to reader 
1 , the input file must also be assigned to reader 1 . 

MESSAGE and LIST Files. If both the message and 
list files are assigned to a printer, the assignment 
must be identical. For example, if the system is a 
1401 and the message file is assigned to printer 2, 
the list file must also be assigned to printer 2. 

WORK1 , WORK2 , and WORK3 Disk Files. With disk 
systems, seek time is the most important factor af¬ 
fecting input/output operations. Therefore, it would 
be expedient for the user with a multi-unit system 


to distribute the Fortran files to all of the units, thus 
making a significant reduction in seek time. 

Because the workI, work2, and work3 files han¬ 
dle large amounts of data, inefficient use of the files 
results in an increase in Fortran time requirements. 
For the benefit of the single disk unit user, workI, 
work2, and work3 are handled in a special way. The 
special way is to assign them to the same area of the 
disk unit as shown in Figure 29. When this is done, 
the System Control Program “splits” each cylinder, 
causing workI to occupy the upper half of each cyl¬ 
inder and work2 to occupy the lower half of each 
cylinder. work3 initially occupies the upper half, 


Line 

3 5 

Label 

6 15 

Operation 
16 20 

OPERAND 

2i 25_52_55_12_15_52_55_62_ 

0,1, 

o,u,t,p,u.t! , , , 

A,$,G.H 

I 3.0.1 .UX.IT. .I,». START, ,0.0,4.0,0.0.), .END. 0.0.4,&0.0, 

0 2 

1 

i i l i i 1 ill 

1 1 i 1 


0,3 

1 

_i_i_i_i_i_1—i—i—i— 

—i— » i i 

_1_1__t 11,1-1-1-1-1-1-1-1-1-1 >11. A .1-1-1-1-1-1-1_1_1_1_1_1_1_» 1 1 » » * 


Figure 28. Coding for an output asgn Card 
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then is effectively “flipped” back and forth as the 
compilation progresses. A programmed false cylin¬ 
der overflow is forced as each half cylinder is oper¬ 
ated upon and the next upper or lower cylinder is 
used. 

WORK1 , WORK2 , and WORK3 Tape Files. As with 
disk files, it would be to the user’s advantage to 
distribute the work files to separate tape units. How¬ 
ever, if the system contains only the minimum num¬ 
ber of units, it is possible to assign workI and work3 
to the same unit, thus saving the fourth unit for 
other purposes, such as a loader file for batched 
output from the compiler. 

Use of Logical Files at Object-time. At object-time, 
the user is free to use any of the logical files for 
input/output operations except the system, con¬ 
trol, library, and loader files. In addition, the list 
file is used by the Fortran loader for diagnostic mes¬ 
sages and the list and output files are normally 
used for the output options that are specified by 
the user. Therefore, if the list file (Fortran numeri¬ 
cal file name 3) is used, it would normally be as¬ 
signed to the printer so as to be aware of diagnostics, 
should any occur. 

If the Fortran system resides on 1311 or 1301, tape 
input and/or output is permitted during object-time 
(loader run or production run). Care must be exer¬ 
cised that no logical file referenced by the disk 
loader be assigned to tape. 


Using ASGN Cards 

At the beginning of stack processing, the System Con¬ 
trol Program causes assumed assignments from the 
system file to become effective. Each assumed assign¬ 
ment remains in effect until an asgn card for that file 
is sensed. Any changed file assignment remains in ef¬ 
fect until the next asgn card for that file, or until an 
init card, or until a halt card is sensed. (An init card 
causes all assumed assignments to become effective.) 



If a file-assignment change is applicable for an en¬ 
tire stack, place the asgn card immediately ahead of 
the first run card. 

If a file-assignment change is applicable only to a 
specific job, place the asgn card immediately ahead of 
the run card for that job. To change the single file 
assignment back to the assumed assignment or to a 
different assignment, place the asgn card immediately 
ahead of the run card for the next job that requires the 
effective file assignment to be changed. If all effective 
file assignments are to be changed back to the original 
assumptions of the system, place an init card after the 
last job that is to use the effective assignments. 

Example. Figure 30 is an illustration that shows the 
use of asgn cards. Assume that: 

1. The stack consists of compiling and executing Job 1. 

2. The stack is to be processed on an ibm 1401 system 
with ibm 1311 Disk Storage Drives. 

3. The system and library files are located on drive 0. 

4. Drive 1, drive 2, drive 3, and drive 4 are on-line. 

5. asgn card A specifies system asgn 1311 unit 0. A 
system asgn card is required for each stack of jobs 
when the system resides on a disk unit. 

6. asgn card B specifies workI asgn 1311 unit 1, start 
006400, end 009600. asgn card C specifies work2 
ASGN 1311 UNIT 2, START 006400, END 009600. ASGN 
card D specifies work3 asgn 1311 unit 3, start 
006400, end 009600. asgn card E specifies loader 
asgn 1311 unit 4, start 010000, end 012000. Assign¬ 
ing disk files to separate disk units can make a sub¬ 
stantial reduction in seek time. 

7. asgn card F specifies work5 asgn printer 2. work5 
is equivalent to the Fortran numerical file name 8, 
which is to contain the results from Job 1. 


Batched Files 

Batched files are defined as the external files input, 
output, list, and loader whose contents represent 
one or more sequential sets of input to or output from 
the compiler. 

An application of batched files might be in the case 
where a series of fortran run jobs were compiled. 
The results of this processing would be stored sequen¬ 
tially on the loader file. The user could immediately, 
or at a later time, perform a series of loader run jobs, 
using as input the relocatable object programs on the 
loader file. 

The user would also have the capability of desig¬ 
nating specific programs on the loader file by using 
the three-character program name in an include card. 
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R j^WORK2 ASGN 
j^WORKI ASGN 


E [^FORTRAN RUN 
D (^LOADER ASGN 
[^WORK3 ASGN 



Compilation 


Job 1- 
Execution 



Figure 30. Using asgn Cards 


Performing Jobs 

Under control of the System Control Program, it is pos¬ 
sible to process one or more jobs without operator in¬ 
tervention. In order that this stack processing be ac¬ 
complished, each separate job must be called for by 
the necessary control cards. A list of the operations that 
can be performed in a stack follows. 

Logical File Assignments. Assign decks are made up of 
one or more asgn control cards specifying input/ 
output devices that differ from the effective devices 
of the System Control Program. With the exception 
of the system asgn card, logical-file asgn control 
cards can appear as frequently within the stack as 
the user wishes. If the system file resides on disk, or 
on any tape unit other than unit 1, the system asgn 
card appears once in a stack and immediately follows 
the card-boot deck. The user is reminded that no file 
assignment is reinstated to the original assumption 
unless specifically called for by an asgn card, or un¬ 
til an in it card is sensed. 

When an init card is sensed, all logical file assign¬ 
ments revert to the assumed assignments of the Sys¬ 
tem Control Program. At this time, the loader file is 


initialized for a new fortran run job. Thus, by us¬ 
ing an init card, the user can guarantee that his 
sequence of jobs will operate independently from 
any preceding jobs in the stack. 

Library Maintenance. The composition of a library 
deck depends upon the nature of the library job. 
However, a library run card and an end card are 
always required. 

System Updating. Update decks as supplied by ibm or 
the user are read by the System Control Program 
and must be available to the system on the device to 
which the control file is assigned. An update deck 
consists of one or more control cards, followed by 
any appropriate data cards. 

Processor Runs. Runs are dependent upon a run card 
and the input to the processors. If the input file is 
assigned to the same device as the control file, i.e., 
the card reader, each source deck must be placed 
behind its respective run control card. If the input 
to the processor or programs is written in disk stor¬ 
age or on magnetic tape, an input asgn card is re¬ 
quired designating the location of the source ma¬ 
terial. 
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Communicating with the Operator, note control cards 
and pause control cards can appear anywhere in a 
stack between jobs. A halt card must be the last 
card of a stack. 


Preparing a Stack 

For a disk-resident system, the card-boot deck, a sys¬ 
tem asgn card, and a halt card are always required. 
For a tape-resident system, the card-boot deck and the 
system asgn card are optional; the halt card is re¬ 
quired. The formats of the system asgn and halt 
cards are shown in Appendix I . 

The input cards for a stack are arranged in this 
order. 

1. The 1402 or 1442 card-boot deck, which is optional 
if the tape-resident system is on unit 1. 

2. The system asgn card, which is optional if the tape- 
resident system is on unit 1. 

3. Job decks, to include assign card(s), library deck(s), 
update deck(s), and processor deck(s). Job decks 
can be in any order. 

4. The halt card. 

This stack is placed in the card reader, and is read by 
the System Control Program from the control file. 

Figure 31 shows a stack with control and input 
files assigned to the same device. 

Figure 32 shows a stack with control and input 
files assigned to different devices. 


Running a Stack 

To perform a stack run when the system resides on 
1311: 

1. Place the system pack on the disk drive referred to 
in the system asgn control card and ready the drive. 
(This card immediately follows the 1402 or 1442 
card-boot deck.) 

2. Ready all the input/output devices to which the sys¬ 
tem logical files and/or the devices to which the 
Fortran numerical files are assigned. These are the 
assumed devices of the System Control Program 
and/or the devices defined by the asgn cards. The 
assumed devices are: disk drive 0, the card reader, 
the card punch, and the printer. 

3. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch and disk-write switch 
on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 


4. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

5. When the system attempts to read the last card: 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the card 
reader. 

To perform a stack run when the system resides on 
1301: 

1. Ready all the input/output devices to which the sys¬ 
tem logical files and/or the devices to which the 
Fortran numerical files are assigned. These are the 
assumed devices of the System Control Program 
and/or the devices referred to in the asgn cards. 
The assumed devices are: disk unit 0, the card 
reader, the card punch, and the printer. 

2. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch and disk-write switch 
on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 

3. Load the program: 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

4. When the system attempts to read the last card: 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the card 
reader. 

To perform a stack run when the system resides on 
magnetic tape, and the card-boot deck and the system 
asgn card are not to be used. 

1. Mount the system tape on unit 1. 

2. Ready all the input/output devices to which the sys¬ 
tem logical files and/or the devices to which the 
Fortran numerical files are assigned. These are the 
assumed devices of the System Control Program 
and/or the devices defined by the asgn cards. The 
assumed devices are: tape units 1, 3, 4, and 5 (for¬ 
tran run) or tape units 1 and 3 (loader run) or 
tape units 4, 5, and 6 (production run), and the 
card reader, the card punch, and the printer. 

3. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 
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Figure 31. Stack with control and input Files Assigned to the Same Device 
60 Fortran IV Specs & Op. Proc. — 1401 , 1440, 1460 


Job 2 



Figure 32. Stack with control and input Files Assigned to Different Devices 


4. Press tape load. 

5. When the system attempts to read the last card, 
press START. 

To perform a stack run when the system resides on 
magnetic tape, and the card boot and the system asgn 
card are to be used: 

1. Mount the system tape on the tape unit referred to 
in the system asgn control card, and ready the tape 
unit. (This card immediately follows the 1402 card- 
boot deck.) 

2. Ready all the input/output devices to which the sys¬ 
tem logical files and/or the devices to which the 
Fortran numerical files are assigned. These are the 


assumed devices of the System Control Program 
and/or the devices defined by the asgn cards. The 
assumed devices are: tape units 1, 3, 4, and 5 (for¬ 
tran run) or tape units 1 and 3 (loader run) or 
tape units 4, 5, and 6 (production run), and the 
card reader, the card punch, and the printer. 

3. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 

4. Press load. 

5. When the system attempts to read the last card, 
press START. 
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Halts and Messages 

The halts and messages shown in Figure 33 can appear 
during a stack run. To display the halt numbers, press 
the A-address register key. Messages are printed on the 
message file. 

Conditions may arise that the system recognizes as 
being instrumental in causing a failure. In these in¬ 
stances, the system automatically calls in a storage- 
and file-print program and continues by accepting a 
new job. 

If the system is disk resident, the user can call in the 
storage- and file-print program by a manual branch to 
address 900. If the system is tape resident, the user can 
call in the storage- and file-print program by a manual 
branch to address 540. In both cases, a new stack can 
then be run. 

work files are printed out successively beginning 
with workI. If an end-of-file indicator (a tape mark for 
tape files or a IbEOF for disk files) is not present in a 
work file when the file-print program has control, the 
user can get a printout of the next work file by a man¬ 
ual branch to address 603 for disk-resident systems, or 
472 for tape-resident systems. 
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Halt Number 
(A-Address 
Register) 


MESSAGE and/or Meaning 


Restart Procedure 


001 

WRONG SYSTEM. 

The message appears unconditionally on the printer. 

1 . Nonprocess run-out the cards in the reader. 

2. Correct the SYSTEM ASGN card, or 

3. Place the correct pack or tape on the unit indicated 
in the SYSTEM ASGN card. 

4. Restart the stack. 

002 

TEN RD TRIES PRESS STRT FOR 10 MORE. 

The message appears unconditionally on the printer. It 
indicates any disk error while attempting to read the 
system file. 

Press START for ten disk-read or tape-read retries. 

003 

SYSTEM ASGN NOT SENSED. 

The SYSTEM ASGN card did not immediately follow 
the card boot. 

1 . Nonprocess run-out the cards in the reader. 

2. Place the SYSTEM ASGN card and the remainder of 
the stack in the read hopper. 

3. If the reader is 1402, press START. 

4. If the reader is 1442, press START on the reader and 

START on the console. 

004 

Parity check, wrong-length record, or no-address- 
compare error sensed 10 successive times during a disk 
or tape bootstrap operation. 

Press START for 10 disk-read or tape-read retries. 

005 

End-of-file sensed in SYSTEM file during disk or tape 
bootstrap operation. 

Nonprocess run-out the cards in the reader and restart 
the stack. 

006 

HALT card image. 

Indicates the end of the stack . 

Hard halt. 

007 

Card-punch error. 

1 . 1402 card punch and 1444 card punch: nonprocess 
run-out the cards in the punch . Discard the last 


three cards (two nonprocessed cards and the card in 
error) in the stacker. Press START. 


2 . 


008 


Card-read error. 


1 . 


1442 card punch: discard the last card in the stacker. 
Press START on the punch and START on the console. 


1402 card reader: nonprocess run-out the cards in the 
reader. Place the last three cards (two nonprocessed 
cards and the card in error) in the hopper. Press 
START. 


009 


Printer error. 


1442 card reader: nonprocess run-out the cards in the 
reader. Place the two nonprocessed cards in the hoppe 
Press START on the reader and START on the console. 


1403 printer: press START. 


010 


Non-blank card at the punch station in the 1442 
card read-punch. 


2. 1443 printer: press START on the printer and START on 
the console. 


Nonprocess run-out the cards in the 1442 . Place blank 
cards before the nonprocessed cards. Press START on the 
1442 and START on the console. 


011 


PAUSE card image. 


Press START. 


012 


Console-printer error. 


Press START for one retry of the read or write operation. 


i 


Figure 33. Halts and Messages (Part 1 of 2) 



Halt Number 
(A-Address 
Register) 

MESSAGE and/or Meaning 

Restart Procedure 

013 

*** ASGN card image. 

The halt indicates that the ASGN card is incorrectly 
punched. 

1 . 1402 card reader: the card in the stacker is the 

incorrect ASGN card. Correct the ASGN card. Nonprocess 
run-out the cards in the reader. Place the corrected 

ASGN card and the two nonprocessed cards in the 
hopper. Press START . 

2. 1442 card reader: nonprocess run-out the cards in the 
reader. The first nonprocessed card is the incorrect 

ASGN card. Correct the ASGN card. Place the 
corrected ASGN card and the second nonprocessed card 
in the hopper. Press START on the reader and START 
on the console. 

3. If the user wishes, he can ignore the two steps outlined 
above, and press START . The system will then use the 
effective device assignment for that particular file. 

040 

The logical file has been assigned to an area that 
overlaps a previously defined file label (1311 only). 

Hard halt. Change the assignment and restart the stack 
with the Card boot. 

168 

Phase not found in phase table while in supervisory call 
for phase (disk-resident systems only). 

A part of the system must be rebuilt. Use the parts of the 
system deck labeled CARD BUILD, SYSTEM CONTROL, 
and FORTRAN COMPILER-LOADER-LIBRARIAN. Follow 
the procedures as described in Building a Fortran System. . 

500 

Disk not ready . 

Ready the disk unit and press START. 

519 

Tape transmission error. 

Press START for 10 tape-read or tape-write retries. 

629 

Parity check, wrong-length record, or no-address- 
compare error sensed 10 successive times during a 
disk-read or write operation. 

Press START for 10 disk-read or disk-write retries. 


NOTE card image. 

If a message is printed and no halt occurs, the next control 
card is processed. 

*** card image. 

All cards not recognized by the System Control Program 
are flagged (***), written on the MESSAGE file, and 
bypassed by the system. 

Card image 

INVALID UPDAT TYPE 

Update card with invalid update mode designated. 

PHASE XXX ALREADY ON SYSTEM. WILL DROP THIS 

SET OF CARDS 

PHASE XXX NOT FOUND 

HEADER CARD ERROR 

All header cards for disk must have 24232 in columns 

1 through 5. 

All header cards for tape must have 24235 in columns 

1 through 5. 

'Card image 

PHASE AREA EXCEEDED 

****PROCESSOR UNKNOWN**** 

{°“ T } F,LE { E S NDS TS }° N {1301 } UNIT - AT 

ADDRESS nnnnnn 


Figure 33. Halts and Messages (Part 2 of 2) 
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Building and Updating a 
Fortran System 

Fortran System Deck Description 
and Preparation 

The tape supplied to the 1401 or 1460 user who wants 
a tape resident system contains a Fortran system that 
is ready for operation. The tape is labeled 1401 Fortran 
IV System. In addition to the system tape, the 1401 and 
1460 user is supplied with a Fortran sample program 
(see Figure 37) and a deck of cards that can be used 
to start system operations. This card deck, called the 
card boot , is made up of 17 cards. The first six cards 
are the 1402 load cards and are numbered consecu¬ 
tively 1 through 6 in column 80. They are identified by 
a 0-4-8 punch (% symbol) in column 79. The remain¬ 
ing cards are numbered consecutively 001 through 011 
in columns 73-75. These remaining cards are identified 
by the code 50PZ1 punched in columns 76-80. 

If the user wants to duplicate the system tape, the 
procedures to be followed for this process are de¬ 
scribed in the section entitled Duplicating the System 
Tape. 

The card deck supplied to the user who wants a disk 
resident system contains six sections as shown in Fig¬ 
ure 34. One section, marking program , is used to sepa¬ 
rate the sections for ease in labeling the various com¬ 
ponents of the complete deck. Three sections, write 
file-protected addresses , system control card build , and 
Fortran update are used to build the system. A fifth 
section, the card boot , is used to operate the system. A 
sixth section, sample program, is used to test the sys¬ 
tem built by the user. The individual sections are sepa¬ 
rated by the marking-program control cards. In the 
instances where more than one set of cards comprises 
a section, a marking-program control card separates 
the sets. 

To facilitate building and maintenance operations, 
mark the sections as indicated by the marking-program 
messages. 

All cards in the system deck, except the four 1402 
load-card sets and the four 1442 load-card sets, contain 
a sequence number in columns 73-75. The cards are 
numbered consecutively, beginning with 000. The first 
1,000 cards have no zone punches above the sequence 
numbers. The second 1,000 have a 12-punch in column 
75. The third 1,000 have a 12-punch in column 74. The 
fourth 1,000 have a 12-punch in column 73. The re¬ 
maining cards have an 11-punch in column 75. 

All load cards contain a sequence number in column 
80. The 1402 load cards are numbered consecutively 
from 1 through 6 in column 80 and are identified by a 
0-4-8 punch (% symbol) in column 79. The 1442 load 


cards are numbered consecutively from 1 through 7 in 
column 80 and are identified by a 3-8 punch (# sym¬ 
bol) in column 79. 

If it should be necessary to resequence the system 
deck, the user should sort the cards in the following 
manner: 

1. Sort on column 79 (0-4-8 punch) to select the 1402 
load cards. 

2. Sort the 1402 load cards on column 80 to sequence 
the cards. 

3. Assemble the four sets of 1402 load cards. 

4. Sort on column 79 (3-8 punch) to select the 1442 
load cards. 

5. Sort the 1442 load cards on column 80 to sequence 
the cards. 

6. Assemble the four sets of 1442 load cards. 

7. Sort the remaining cards into four groups corre¬ 
sponding to: 

a. No zone punch in any of the columns 73-75. 

b. 12-punch in column 75. 

c. 12-punch in column 74. 

d. 12-punch in column 73. 

e. 11-punch in column 75. 

Sort each of these groups on columns 75, 74, and 73. 

8. An appropriate set of load cards makes up the first 
six cards (1402) or seven cards (1442) of the marking 
programs, file-protect programs, card-build pro¬ 
grams, and card boots. Insert a 1402 or 1442 load 
card set preceding each of these programs accord¬ 
ing to the system (1401/1460 or 1440). 

Marking Program 

The marking-program deck is made up of two sets. The 
set for the 1442 consists of 13 cards and, except for the 
load cards, has identification code 50ZY1 punched in 
columns 76-80. The set for the 1402 consists of 11 cards 
and, except for the load cards, has the identification 
code 50ZZ1 punched in columns 76-80. A blank card 
follows each set. 

The marking program separates the various sections 
and sets that make up the system deck. When a control 
card is sensed, a halt occurs and a message is printed. 
If the reader is 1442, the initial message is: 

HALT AT EACH DECK SEGMENT. DISCARD 
FIRST CARD, MARK DECK AS PRINTED, 

PRESS START TO CONTINUE. 

If the reader is 1402, the initial message is: 

HALT AT EACH DECK SEGMENT. MARK 
DECK AS PRINTED, PRESS START TO CON¬ 
TINUE. 
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SAMPLE 

PROGRAM 


1 th 


FORTRAN 

-STANDARD- 

SUBPROGRAMS 


FORTRAN COMPILER- 
LOADf R-LIBRARIAN 


FORTRAN UPDATE 


SYSTEM CONTROL 

"program 


CARD BOOT 


)SYSTEM CONTROL CARD BUILD 


WRITE FILE PROTECTED ADDRESSES 


• Blank Card 


Blank Card 


MARKING 

PROGRAM 



Shaded Cards 
Represent Marking 
Program Control Cards 


Figure 34. Fortran System Program Deck 
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Subsequent messages contain the name of the sec¬ 
tion to be marked. 

To use the decks: 

1. Set sense switch A on. Set all other sense switches 
off. 

2. Set the I/O check stop switch off. 

3. Press check reset and start reset. 

4. Select the marking-program deck that is appropriate 
for the system and remove the other deck. 

5. Remove the blank card following the marking-pro¬ 
gram and place the program in the card reader, fol¬ 
lowed by the remainder of the Fortran system deck. 

6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. Halt 003 procedure. 

a. ibm 1402 Card Read-Punch: Press start. The 
marking program is in the NR stacker. 

b. ibm 1442 Card Reader: Remove the marking pro¬ 
gram from stacker 1 and press start on the con¬ 
sole. 

8. Halt 001 procedure.^ 

a. ibm 1402 Card &ead-Punch: Remove the cards 
from stacker 1 arid press start. Mark the deck 
section as indicated in the message. The marking- 
program control card is in the NR stacker. 

b. ibm 1442 Card Reader: Remove the cards from 
stacker 1 and press start on the console. Discard 
the first card ( marking-program control card) and 
mark the section as indicated in the message. 

Note; The marking-program control cards are identified 
by ##### in columns 1-5. These cards are only for the 
use of the marking program and should be discarded after 
the deck is marked. 

9. When the system attempts to read the last card. 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 
The last card is a marking-program control card 
and should be discarded. 

The following halts can occur when using the mark¬ 
ing program . To display the halt number, press the 

A-address register key. 

Halt Number 


(A-Address Register) 

Meaning 

001 

The deck section in stacker 1 
should be marked. 

002 

End of job. 

003 

The initial message has been 
printed. 


Halt Number 

(A-Address Register) Meaning 

008 Card-read error. To retry the op¬ 

eration : 

For the 1402: Nonprocess run-out 
the cards. Remove the last three 
cards in the stacker and place them 
in the hopper. Press start. 

For the 1442: Nonprocess run¬ 
out the cards. Place the two non- 
processed cards in the read hop¬ 
per. Press start on the reader and 
start on the console. 

009 Printer error. To retry the opera¬ 

tion, 

a. ibm 1403 Printer: Press start. 

b. ibm 1443 Printer: Press start 
on the printer and start on the 
console. 

Write File-Protected Addresses 

The write file-protected addresses section is punched 
in the Autocoder condensed-loader format. The deck 
consists of approximately 120 cards. 

The set of cards for the 1442 has, except for the load 
cards, the identification code 50FS1 punched in col¬ 
umns 76-80. The set of cards for the 1402 has, except 
for the load cards, the identification code 50FP1 
punched in columns 76-80. 

This section writes disk addresses whose values are 
equal to the normal addresses plus 260,000. It is by use 
of these false addresses that the file-protected area is 
created. 

System Control Card Build 

This section contains control cards and cards punched 
in the Autocoder condensed-loader format. It includes 
both the 1402 and the 1442 card-build programs and 
the System Control Program. All necessary control 
cards are incorporated within the section, which con¬ 
sists of approximately 1000 cards. 

The card-build set for the 1442 has, except for the 
load cards, the identification code 50X41 punched in 
columns 76-80. The card-build set for the 1402 has, ex¬ 
cept for the load cards, the identification code 50X01 
punched in columns 76-80. 

The System Control Program section is identified by 
the code 50Sxl punched in columns 76-80, where x is 
alphameric. The section loads the System Control Pro¬ 
gram in disk storage. 

Card Boot 

The 1402 card-boot set, consisting of 17 cards, and the 
1442 card-boot set, consisting of 19 cards, are punched 
in the Autocoder condensed-loader format. The 1442 
card-boot set has, except for the load cards, the identi¬ 
fication code 50SZ1 punched in columns 76-80. The 
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1402 card-boot set has, except for the load cards, the 
identification code 50PZ1 punched in columns 76-80. 

Because the card boot is required for each stack of 
jobs to be performed by the system, the card boot must 
be removed and saved for future system operations. 


Fortran Update 

The Fortran-update section is made up of the Fortran 
compiler-loader-librarian set and the Fortran standard 
subprograms set. 

The Fortran compiler-loader-librarian set is punched 
in the Autocoder condensed-loader format, Fortran re¬ 
locatable format, and the updat control card format. 
The set consists of approximately 3,000 cards and con¬ 
tains the phases of the Fortran compiler, the Fortran 
loader, and the library-build routine for the Fortran 
standard subprograms. The updat cards are identified 
by the code UPFIV punched in columns 76-80. The 
Fortran compiler, loader, and librarian phases are iden¬ 
tified by the code nnFIV punched in columns 76-80, 
where n is numeric. 

The function of the deck is to load the Fortran proc¬ 
essor phases on the disk unit, thus permitting a for¬ 
tran run or loader run, and to load librarian phases 
that control the building and maintaining of the For¬ 
tran library of standard and user-supplied subpro¬ 
grams. 

The Fortran standard subprograms set is punched 
in the Fortran relocatable card format and the library 
control card format, and contains approximately 1,000 
cards. The set has the identification code SSFIV 
punched in columns 76-80. This set places the Fortran 
standard subprograms on the library file. Fortran 
requires that these subprograms be present during a 

LOADER RUN. 

The last two cards of the set are a note card and 
a halt card which will cause the following comments 
to be printed on the message file: 

NOTE SYSTEM BUILD COMPLETE 
HALT PREPARE SAMPLE PROGRAM 
TO TEST SYSTEM 


Fortran Sample Program 

The Fortran Sample Program consists of approximately 
150 cards. The sample program for the 1442 has the 
identification code S2FIV punched in columns 76-80. 
The sample program for the 1402 has the identification 
code S1FIV punched in columns 76-80. This source 
deck, written in the Fortran language, is used to test 
the effectiveness of the system built by the user. 



Figure 35. Building a Fortran System 
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Building a Fortran System 

After all sets of cards have been labeled and those sets 
of cards not applicable to the user's system have been 
removed, the user is ready to use the prepared system 
deck to build the Fortran system. 

Figure 35 is a block diagram showing the building 
of a disk-resident system. 

The system unit must be prepared for writing the 
complete system from cards. The user must clear disk 
unit 0 in the move mode from 000000 to 000199, in the 
load mode from 000200 to 000259, in the move mode 
from 000260 to 000299, in the load mode from 000300 
to 006399, and in the move mode from 006400 to 
019979. The Clear Disk Storage Utility program ap¬ 
plicable to the user’s system can be used for this opera¬ 
tion. As header labels are to be deleted, the write- 
address mode switch will initially be set off. 

Figure 36 shows the disk storage allocation on the 
system unit. 

The control cards for the utility program must be 
punched in the following manner. 

For 1311 , 


For 1301, 


Columns Contents 

1-15 M000000000199 =f= + 

21-35 L000200000259 + 4* 

41-55 M000260000299 4= 4= 


Columns Contents 

1-15 L000300006399 4+ 

21-35 M006400019979 4 4= 


The time required to clear the disk unit in the speci¬ 
fied modes is approximately five minutes. 


Write File-Protected Addresses 

The last card in the section labeled write file protect 
is a control card that is partially prepunched. It is by 
the use of this control card that the limits of the file- 
protected area reserved for the system file in the disk- 
storage unit are supplied. The user must indicate in 
the control card whether the system is to reside on a 
1301 or 1311 disk unit. For both the 1301 and 1311, the 
system must be built on unit 0. In the case of the 1311, 
the system pack can be used on any drive once the 
system has been built. The control card is punched as 
follows : 


Columns 

Contents 

Columns 

Contents 

1-15 

M00000000019900 

1-15 

file-protect on (prepunched) 

21-35 

L00020000025900 

17-20 

1301 or 1311 

41-55 

M00026000029900 

22 

0 (prepunched) 



24-42 

from normal address (prepunched) 

Columns 

Contents 

44-49 

002500 (prepunched) 

1-15 

L00030000639900 

51-52 

to (prepunched) 

21-35 

M00640001997900 

54-59 

006400 (prepunched) 


File 

Mode 

File-Protected 

Sector Range 

SYSTEM File 




Not used 

Move 

No 

000000-000199 


Load 

No 

000200-000259 


Move 

No 

000260-000299 


Load 

No 

000300-002499 

System Control Program 

Load 

Yes 

002500-002904 

Fortran Processor Program 

Load 

Yes 

002905-002979 

Not used 

Load 

Yes 

002980-002999 

System Control Program 

Load 

Yes 

003000-003175 

Fortran Processor Program 

Load 

Yes 

003176-004830 

Area for User's Fortran Object Program Library 

Load 

Yes 

004831-006399 

WORK Files 

Move 

No 

006400-009999 

LOADER File 

Move 

No 

010000-011999 

LIBRARY File 

Move 

No 

012000-013899 


Figure 36. Disk Storage Allocation 
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After columns 17-20 have been punched by the user, 
the card must be replaced as the last card of the 
section. 

To use the section when the system is to reside on 
1311: 

1. Ready the pack on disk drive 0. 

2. Set the write-address mode switch on. 

3. Set the write-disk switch on. 

4. Set the I/O check stop switch on. 

5. Press check reset and start reset. 

6. Place the write file-protected addresses section in 
the card reader. 

7. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

8. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

9. At the end of the job, set the write-address mode 
switch off. 

To use the deck when the system is to reside on 1301: 

1. Set the write-address mode switch on. 

2. Set the write-disk switch on. 

3. Set the I/O check stop switch on. 

4. Press check reset and start reset. 

5. Place the write file-protected addresses section in 
the card reader. 

6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

8. At the end of the job, set the write-address mode 
switch off. 

The time required to perform this job is approxi¬ 
mately 1 minute. The following halts can occur when 
writing file-protected addresses. 

Halt Number 

(A-Address Register) M eaning 

020 Last card condition was sensed be¬ 

fore the control card. The control 
card containing the initial and ter¬ 
minal addresses of the area to be 
file-protected must be the last card 
of the deck. When the system is re¬ 
started by pressing start, a read 
operation is performed. 


Halt Number 

(A-Address Register) Meaning 

021 An invalid disk type is specified in 

the control card. 1301 or 1311 are 
the only valid entries for columns 
17-20 of the control card. When 
the system is restarted by pressing 
start, a read operation is per- 
formed. 

022 An invalid disk unit is specified in 

the control card. The only valid 
entry for column 22 of the control 
card is 0. When the system is re¬ 
started by pressing start, a read 
operation is performed. 

023 An invalid start address (columns 

44-49) is specified in the control 
card. The start address must be 
002500. When the system is re¬ 
started by pressing start, a read 
operation is performed. 

024 An invalid end address (columns 

54-59) is specified in the control 
card. The end address must be 
006400. When the system is re¬ 
started by pressing start, a read 
operation is performed. 

025 Disk unit 0 is not ready. When the 

system is restarted by pressing 
start, the disk I/O operation is 
retried. 

026 The area specified in the control 

card is already file-protected (all 
or in part). If the system is re¬ 
started by pressing start, the en¬ 
tire specified area will be file-pro¬ 
tected and cleared. 

027 The area specified in the control 

card has neither the “normal" disk 
addresses (000000-?) nor file-pro¬ 
tected addresses. This is a hard 
halt. 

028 Parity check or wrong-length rec¬ 

ord error occurred on the disk unit 
while writing addresses. When the 
system is restarted by pressing 
start, the disk I/O operation is 
retried. 

029 Parity check or wrong-length rec¬ 

ord error occurred on the disk unit 
while determining the existing ad¬ 
dressing scheme. This is a hard 
halt. 

030 End of the job. 


System Control Card Build 

The last card in the section labeled card build is a con¬ 
trol card that is partially prepunched. It is by the use 
of this control card that disk residence is determined. 

The user must indicate in the control card whether 
the system is to reside on a 1301 or 1311 disk unit. The 
assumed disk unit number is 0. 
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The control card is punched as follows: 

Columns Contents 

6-11 system (prepunched) 

16-20 build (prepunched) 

21-24 1301 or 1311 

After columns 21-24 have been punched by the user, 
the card must be replaced as the last card of the card 
build deck. 

The system-control card build consists of the card 
sections labeled card build and system control. 

To use the system-control card build when the sys¬ 
tem is to reside on 1311: 

1. Ready the pack on disk drive 0. 

2. Set the write-address mode switch off. 

3. Set the write-disk switch on. 

4. Set the I/O check stop switch off. 

5. Press check reset and start reset. 

6. Place the system-control card build section in the 
card reader. 

7. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

8. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

To use the system-control card build when the system 
is to reside on 1301: 

1. Set the write-disk switch on. 

2. Set write-address mode switch off. 

3. Set the I/O check stop switch off. 

4. Press check reset and start reset. 

5. Place the system-control card build section in the 
card reader. 

6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

The time required to perform this job is approximately 
5 minutes. The following halts can occur while using 
the system-control card build deck. 


Halt Number 

(A-Address Register) Meaning 

008 Card-read error: To retry the op¬ 

eration : 

For the 1402: Nonprocess run-out 
the cards. Remove the last three 
cards in the stacker and place them 
in the hopper. Press start. 

For the 1442: Nonprocess run-out 
the cards. Place the two nonproc- 
essed cards in the read hopper. 
Press start on the reader and 

start on the console. 

050 The system build control card is 

missing from the deck or the user 
entry is incorrectly punched. 

051 End of job. 

557 Disk unit 0 is not ready. When the 

system is restarted by pressing 
start, the disk I/O operation is 
retried. 

562 A disk-write error occurred ten 

times. When the system is restarted 
by pressing start, the disk I/O 
operation is retried. 


Fortran Update 

To build the Fortran processor, the Fortran update 
section, made up of the sets of cards labeled fortran 
compiler-loader-librarian and fortran standard 
subprograms are used. Input for this building process 
is as follows: 

1. ibm 1402 or 1442 card boot , followed by the 

2. system asgn card, which must be punched by the 
user, followed by the 

3. Fortran update section, followed by the 

4. halt card, which is the last card of the standard 

SUBPROGRAMS. 


To build the system when it is to reside on 1311: 

1. Ready the pack on disk drive 0. 

2. Set the I/O check-stop switch off. 

3. Set the check-stop switch and disk-write switch on. 

4. Set the mode switch to run. 

5. Press check reset and start reset. 

6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 
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To build the system when it is to reside on 1301: 

1. Set the I/O check-stop switch off. 

2. Set the check-stop switch and disk-write switch on. 

3. Set the mode switch to run. 

4. Press check reset and start reset. 

5. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

6. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

The time required to perform this job is approximately 
20 to 30 minutes. The halts that can occur when using 
the Fortran update deck are shown in Figure 33. 

Fortran Sample Program 

The Fortran Sample Program is used to test the effec¬ 
tiveness of the system built by the user. A listing of the 
Sample Program is shown in Appendix IV. To prepare 
and run the Sample Program, see Preparing a Stack 
and Running a Stack. Figure 37 shows the input cards 
required to test the system by using the Sample Pro¬ 
gram. 


The Sample Program consists of five separate jobs. 
The first job is a fortran run. As a result of this job, 
a source program listing, a name dictionary, and a se¬ 
quence number dictionary will be printed on the list 
file. Further, the object program in the relocatable for¬ 
mat will be present on the loader file. 

The second job is a loader run. As a result of this 
job, a storage print and a name map will be printed on 
the list file. Further, at the completion of processing, 
the object program will be executed. All necessary 
data cards are included. 

Following the completion of execution, a temporary 
halt will occur, and the message 

PAUSE PRESS START TO UPDATE SYSTEM 
WITH PHASE 

will be printed on the message file. When start is 
pressed, the third job will be performed. 

The third job is a user-update job. The punched- 
card object program (phase) in the absolute format is 
placed on the system file. This punched-card deck is 
identical to the punched-card deck that would have 
been produced if a loader-output-option control card 
($absolute deck) had preceded the loader run that 
was previously performed. 

The fourth job is a production run. As a result of 
this job, the phase stored on the system file is executed. 
The data cards supplied are identical to the data cards 
used in the loader run job. 



Figure 37. Fortran Sample Program 
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Following the completion of execution, a temporary 
halt will occur, and the message 

PAUSE PRESS START TO DELETE SAMPLE PROGRAM 
FROM SYSTEM 

will be printed on the message file. When start is 
pressed, the fifth job will be performed. 

The fifth job is a user-update job. As a result of this 
job, the sample program (phase) is deleted from the 
system file. 


Updating a Fortran System 

System updating is accomplished by the use of pre¬ 
punched card decks supplied by ibm. All necessary 
control cards and data cards are included in the deck. 

An update job is performed as described in Prepar¬ 
ing a Stack and Running a Stack. 


Duplicating the System Tape 

To make a copy of the system file when it resides on 
a tape unit, use the copy option of the System Control 


Program. The content of the system file, including the 
library file if it resides on the same unit, is read into 
workI. 

The required control cards for duplicating the sys¬ 
tem tape are: 


1. The workI file must be assigned if it differs from 
the assumed assignment (tape unit 4) of the System 
Control Program. Punch the workI asgn card in 
the following manner. 


Columns Contents 


6-10 

16-19 

21-31 


workI 

asgn 

TAPE UNIT Tl 


The n represents the number of the tape unit, and 
can be 1, 2, 3, 4, 5, or 6. 


2. The required copy control card is punched in the 
following manner. 

Columns Contents 

16-19 copy 

For a system-tape copy job, the asgn card (if required) 
precedes the copy card. 




* 
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Appendix I 


This section contains a summary of the processor jobs 
and a summary of the formats of all control cards that 
are recognized by the System Control Program. Also 
included are the compiler option control cards and 
output option control cards. 

Each control card recognized by the System Control 
Program is punched in the Autocoder format, i.e., the 
label field is in columns 6-15, the operation field is in 
columns 16-20, and the operand field is in columns 
21-72. The user is again reminded that blanks must ap¬ 
pear in columns 21-72 where indicated in the indi¬ 
vidual formats. Further, entries in the label, operation, 
and operand fields must be left-justified in the respec¬ 
tive fields. 

Each entry in compiler option control cards and out¬ 
put option control cards begins in column 1. Blanks 
must appear where indicated in the individual formats. 

Figure 38 shows a summary of a normal fortran 
run job. 


Figure 39 shows a summary of a normal loader run 
job. 

Figure 40 shows a summary of a normal user-update 
job. 

Figure 41 shows a summary of a normal production 
run job. 

Figure 42, shows the formats of asgn cards and the 
assumed assignments for the logical files. Figure 43 
shows the valid device entries for the asgn cards. 

Figure 44 shows the formats of the remaining con¬ 
trol cards recognized by the System Control Program. 

Figure 45 shows the formats of the compiler option 
control cards, the compiler output option control cards, 
and the loader output option control cards. 

Note: Update cards supplied by ibm are prepunched, and 
are included in card decks used for updating the user’s system. 


Input 

Source program statements on the INPUT file 

Output 

1. Messages to the machine operator on the MESSAGE file. 

2. Source - statement diagnostics on the LIST file. 

3. Source program listing on the LIST file. 

4. Name dictionary on the LIST file. 

5. Sequence number dictionary on the LIST file. 

6. Object program in the relocatable format on the LOADER file. 

Optional Output 

Object program in the relocatable format on the OUTPUT file. To get this option, use an 
OUTPUT ASGN card. 

Required User 
Assignments 

None 

Required System 

Control Program 

Control Card 

FORTRAN RUN 

Compiler Option 

$INTEGER SIZE = nn 

Control Cards 

$REAL SIZE = nn 

$ OBJECT MACHINE SIZE = nnnnn 
$NO MULTIPLY DIVIDE 
$ PHASE NAME = name 

Compiler Output 

$ NO LIST 

Option Control 

$NO NAME DICTIONARY 

Cards 

$ NO SEQUENCE NUMBER DICTIONARY 
$ NO DICTIONARY 


Figure 38. Summary of a Normal fortran run Job 
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Input 

Object program in the relocatable format on the LOADER file 

Output 

1. Messages to the machine operator on the MESSAGE file. 

2. Loader diagnostic messages on the LIST file. 

3. Name map on the LIST file. 

Optional Output 

1. Storage print on the LIST file. 

2. Punched-card object program in the absolute format on the OUTPUT file. 

Required User 
Assignments 

None 

Required System 

Control Program 

Control Card 

LOADER RUN 

Required Loader 

Control Card 

SEXECUTION 
$NO EXECUTION 

Loader Output 

Option Control 

Cards 

SABSOLUTE DECK |^three-character file name 

SSTORAGE PRINT ["three-character file name 
$NO NAME MAP 


Figure 39. Summary of a Normal loader run Job 


input 

Punched-card object program in the absolute format on the CONTROL file, or object program 
in the absolute format on the SYSTEM file. 

System Control 

Program Control 

Card 

phase name* UPDAT three-character phase name, INSERT 

or 

[[[user comments]] UPDAT three-character phase name, DELETE 


* phase name is the name of the phase after which the new phase is to be added (tape systems only) 


Figure 40. Summary of a Normal User-Update Job 


Input 

Object program in the absolute format on the SYSTEM file 

Required User 
Assignments 

The unit(s) referenced by the object program 

Required System 

Control Program 

Control Card 

PRODUCTION RUN three-character phase name 


Figure 41. Summary of a Normal production run Job 
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ASGN Card Formats 

Assumed Assignment 

Remarks 

Label Field 

(Columns 

6-15) 

Operation 

Field 

(Columns 

16-20) 

Operand Field (Columns 21-72) 

Compilation 
(FORTRAN RUN) 

Execution 

(LOADER RUN or PRODUCTION RUN) 


SYSTEM 

ASGN 

( 1311 UNIT n ) 

^ 1301 UNIT 0 > 

(TAPE UNIT n ) 

1311 unit: user-assigned 

1301 unit: must be assigned to UNIT 0 

Tape unit: user-assigned 

1311 unit: user-assigned 

1301 unit: must be assigned to UNIT 0 

Tape unit: user-assigned 

If tbe system residence is 1311 or 1301, 
the SYSTEM ASGN card is the only re¬ 
quired ASGN card. It must follow the 
Card Boot in a stack of jobs. Any 
other SYSTEM ASGN cards in the 
stack are flagged and bypassed. If 
the user desires that the Fortran system 
use less than the number of core 
storage positions available in the pro¬ 
cessor machine, punch a comma in 
column 32 and 8K, 12K, or 16K be¬ 
ginning in column 34. If the system 
residence is tape and the tape unit is 

1, neither the Card Boot nor the 

SYSTEM ASGN card is required. 
(Pressing the TAPE LOAD key achieves 
the same purpose as the Card Boot and 
the SYSTEM ASGN card .) If the unit 
is 2, 3, 4, 5, or 6, both the Card Boot 
and the SYSTEM ASGN card are re¬ 
quired to start system operations. 

CONTROL 

ASGN 

(READER n 7 

l CONSOLE PRINTER/ 

READER 1 

READER 1 

If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 

MESSAGE 

ASGN 

( PRINTER n \ 

l CONSOLE PRINTER) 

PRINTER 2 

PRINTER 2 

When the MESSAGE file is assigned to 
the CONSOLE PRINTER, carriage 
control characters used with the 1403 
or 1443 printer may appear in the mes¬ 
sage . If the MESSAGE file and the 

LIST file are assigned to the printer, 
the assignment must be to the same 
printer. 

LIST 

ASGN 

( PRINTER n ] 

l 1311 UNIT n, START nnnnnn, END nnnnnn 1 
< 1301 UNIT n, START nnnnnn, END nnnnnn ^ 
/ TAPE UNIT n i 

(OMIT ) 

PRINTER 2 

PRINTER 2 

If the LIST file and the MESSAGE file 
are assigned to the printer, the assign¬ 
ment must be to the same printer. 

INPUT 

ASGN 

i READER n j 

' 1311 UNIT n, START nnnnnn, END nnnnnn \ 
\ 1301 UNIT n, START nnnnnn, END nnnnnn 1 
(TAPE UNIT n ' 

READER 1 

READER 1 

If the INPUT file and the CONTROL 
file are assigned to the reader, the 
assignment must be to the same reader. 

OUTPUT 

ASGN 

( PUNCH n \ 

1 1311 UNIT n, START nnnnnn, END nnnnnn 1 
< 1301 UNIT n, START nnnnnn, END nnnnnn \ 
1 TAPE UNIT n l 

(omit j 

OMIT 

PUNCH 4 (1401 and 1460 systems) 

PUNCH 1 (1440 systems) 


LJBRARY 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn J 
< 1301 UNIT n, START nnnnnn, END nnnnnn > 
(tape UNIT n ) 

1311 UNIT0, START 012000, END 013900 
1301 UNIT0, START 012000, END 013900 
TAPE UNIT 1 

1311 UNIT 0, START 012000, END 013900 
1301 UNIT 0, START 012000, END 013900 
TAPE UNIT 1 

1311 is assumed if the SYSTEM file 
is assigned to 1311 . 1301 is assumed 
if the SYSTEM file is assigned to 1301 . 
Tape is assumed if the SYSTEM file 
is assigned to tape . 

At execution time (LOADER RUN), 
the LOADER file can be assigned to 
READER n. 

If the MESSAGE, LIST, and WORK5 
files are assigned to a printer, the 
assignment must be to the same printer. 

LOADER 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn \ 
\ 1301 UNIT n, START nnnnnn, END nnnnnn / 
< TAPE UNIT n \ 

) READER n l 

(omit ) 

1311 UNIT0, START 010000, END 012000 
1301 UNIT0, START 010000, END 012000 
TAPE UNIT 3 

1311 UNIT0, START 010000, END 012000 
1301 UNIT 0, START 010000, END 012000 
TAPE UNIT 3 

WORK1 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn ( 
\ 1301 UNIT n, START nnnnnn, END nnnnnn / 
(TAPE UNITn ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 4 

1311 UNIT 0, START 006400, END 007200 
1301 UNIT 0, START 006400, END 007200 
TAPE UNIT 4 

WORK2 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn ( 
\ 1301 UNIT n, START nnnnnn, END nnnnnn r 
(TAPE UNITn ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 5 

1311 UNIT 0, START 007200, END 008000 
1301 UNIT 0, START 007200, END 008000 
TAPE UNIT 5 


WORK3 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn i 
\ 1301 UNIT n, START nnnnnn, END nnnnnn \ 
(TAPE UNITn J 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 4 

1311 UNIT 0, START 008000, END 008500 
1301 UNIT 0, START 008000, END 008500 
TAPE UNIT 6 


WORK4 

ASGN 

l 1311 UNIT n, START nnnnnn, END nnnnnn j 
' 130i UNIT n, START nnnnnn, END nnnnnn ( 

I TAPE UNIT n ( 

(OMIT “ ' 

OMIT 

1311 UNIT 0, START 008500, END 009000 
1301 UNIT 0, START 008500, END 009000 
OMIT for tape systems 


WORK5 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn \ 
\l301 UNIT n, START nnnnnn, END nnnnnn I 
< TAPE UNITn > 

/PRINTER n " \ 

VOMIT ~ J 

OMIT 

1311 UNIT 0, START 009000, END 009500 
1301 UNIT 0, START 009000, END 009500 
OMIT for tape systems 


WORK6 

ASGN 

l 1311 UNIT n, START nnnnnn, END nnnnnn i 
) 1301 UNIT n, START nnnnnn, END nnnnnn ( 
1 TAPE UNITn 1 

f OMIT ' 

OMIT 

1311 UNIT 0, START 009500, END 010000 
1301 UNIT 0, START 009500, END 010000 
OMIT for tape systems 



Figure 42. asgn Card Formats and Assumed Assignments 
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Device Entry and Values of n and nnnnnn 

Remarks 

j | UNIT n, START nnnnnn, END nnnnnn 

n is the number of the disk unit, and can be 0, 1, 2, 3, or 4. 
nnnnnn is a disk address. 

The END address is the address of the next available sector. 

The values of nnnnnn must adhere to the following rules: 

1. WORK1 and WORK2 Files. If the disk unit is 1311, the START ad¬ 
dress must be a multiple of 200. If the disk unit is 1301, the START 
address must be a multiple of 800. For both 131 1 and 1301, the END 
address must be a multiple of 40. 

2. WORK3, WORK4, WORK5, and WORK6 Files. For both 1311 and 

1301, the START and END addresses must be multiples of 10. 

3. LIBRARYFile. For both 1311 and 1301, the START and END 
addresses must be multiples of 20. 

If these rules are violated, the system automatically narrows in the disk 

area to an area that does adhere to these rules. 

TAPE UNIT n 

n is the number of the tape unit, and can be 1, 2, 3, 4, 5, or 

6. 


READER n 

For 1402, n can be 0, 1, or 2. 

For 1442, n can be 1 or 2. 

For 1402, n_represents the pocket into which the cards are stacked. For 

1442 or 1444, n represents the number of the unit. 

PUNCH n 

For 1402, n can be 0, 4, or 8. 

For 1442, n can be 1 or 2. 

For 1444, n must be 3. 


PRINTER n 
n can be 1 or 2. 

n represents the number of print positions available on the 1403 or 1443. 

For 1403, a 1 indicates 100 positions and a 2 indicates 132 positions. 

For 1443, a 1 indicates 120 positions and a 2 indicates 144 positions. 

CONSOLE PRINTER 

The console printer must be an IBM 1447 without a buffer feature. 

OMIT 

Select this option when the file is not to be used by the Fortran system. 

The LIST, OUTPUT, LOADER, WORK4, WORK5, and WORK6 files can 
be omitted. 


Figure 43. Valid Device Entries 
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Name of Card 

Label Field 
(Columns 6-15) 

Operation Field (Columns 16-20) 

Operand Field (Columns 21-72) 

Copy (Tape) 


COPY 

|~Any message and/or identification^ 

Halt 


HALT 

^Any message and/or identificationj 

Initialize 

FORTRAN 

1N IT 

j^Any message and/or commentj 

Note 


NOTE 

Any message and/or instruction 

Pause 


PAUSE 

Any message and/or instruction 

Run 

FORTRAN 

RUN 



LOADER 

RUN 



PRODUCTION 

RUN 

Three-character phase name 


LIBRARY 

RUN 


Update * 

phase name 

UPDAT 

Three-character phase name, INSERT 


[jLlser commentsj 

UPDAT 

Three-character phase name, DELETE 

Cards associated 

LIBRARY 

RUN 


with ** 


BUILD 

nnn, where nnn specifies a name-table length that differs from 030. 

LIBRARY RUN 




cards 


LIST 

HEADERS 

*** 

name 

LIST 




LIST 




INSER 


*** 

name 

DELET 


**** 


COPY 




END 



phase name is the three-character phase name after which the phase is to be inserted (tape systems only). 
** This option applies only to libraries that reside on disk. 


*** name is the six-character name of a subprogram. 

**** This option applies only to libraries that reside on tape. 

Figure 44. System Control Cards 
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Type of Control Card 

Format - Columns 1 - ? 

Remarks 

Compiler option control cards 

$INTEGER SIZE = nn 

01^ nn ^ 20; assumed size is 05. 

$REAL SIZE = nn 

02^ nn 20; assumed size is 08. 

$OBJECT MACHINE SIZE = nnnnn 

07999 ^ nnnnn 15999; assumed size is 07999. 

$MULTIPLY DIVIDE 

Multiply/divide feature assumed to be present on 
object machine. 

$NO MULTIPLY DIVIDE 

$PHASE NAME = name 

name is 3 alphameric characters; assumed name 
is ///. 

Compiler output option control cards 

$L 1ST 

Source program listing is assumed. 

$NO LIST 

$NAME DICTIONARY 

Name dictionary is assumed. 

$NO NAME DICTIONARY 

$SEQUENCE NUMBER DICTIONARY 

Sequence number dictionary is assumed. 

$NO SEQUENCE NUMBER DICTIONARY 

$DICTIONARY 

Both the name and sequence number dictionaries 
are assumed. 

$NO DICTIONARY 

Loader output option control cards * 

* 

* 

$ABSOLUTE DECK Jjiiree-character file name J 

No absolute deck is assumed. If an absolute deck 
is specified, OUTPUT file is assumed. 

$NO ABSOLUTE DECK 

$STORAGE PRINT Jlhree-character file namej 

No storage print is assumed. If a storage print is 
specified, LIST file is assumed. 

$NO STORAGE PRINT 

$NAME MAP |~three-character file namej 

Name map is assumed output on the LIST file. 

$NO NAME MAP 

SINCLUDE LDR 

[three-character main program name| 

|or six-character subprogram name | 

1 — i — 6 

The SINCLUDE card is punched as follows. 

Columns Contents 

1-8 SINCLUDE 

16-18 LDR or INP or WKj^ 

21-23 main program name 

or or 

21-26 subprogram name 

SINCLUDE INP 

three-character main program name| 
or six-character subprogram name_| 

$INCLUDE WKJ_ 

three-character main program name| 
or six-character subprogram name 

$EXECUTION 

One of these cards must be supplied by the user as 
the last card of a LOADER RUN. 

$NO EXECUTION 


* When used. 


C* 


three-character file name 


3 


appears in columns 21-23 of the Loader output option control card. 


Figure 45. Fortran Option Control Cards 
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Appendix II 


The name, identification, and function of each phase 
in the Fortran system are given in the following sec¬ 
tions. 


System Control Program — Disk Resident 


Phase Name 

CFG 

SEL 


ID 

50SE1 

50SF1 


This section 

describes 

the phases that make up the 



System Control Program for disk-resident systems. 

UPD 

50SG1 

Phase Name 

ID 

Function 



SYB 

50S01 

1. Determines machine size. 

2. Initializes switches according 

UIN 

50SH1 



to the type of reader, punch, 
and printer (serial or parallel). 

UHD 

50SI1 



3. Reads in the I/O package. 

4. Calls the determiner. 



FHW 

50S11 

Contains the assumed assign¬ 
ments for the logical files. 

UDL 

50SJ1 

IOP 

50S21 

1. Reads or writes disk in the 

UPT 

50SK1 



move or load mode. The mode 
depends on the processor 
operation. 

DMP 

DM2 

50SL1 ) 
50SM1 \ 



2. Determines whether the user 



has exceeded specified file 

F/P 

50SN1 ) 



limits. 

F/2 

50SO1 > 



3. Branches to the processor 

F/3 

50SP1 ) 



phase, or branches to the 
end-of-file routine if the 

MNE 

AUMNE) 



end-of-file has been sensed. 

2XB 

EX2XB f 



4XB 

EX4XB > 

SUO 

50S31 

) 

6XB 

EX6XB \ 

SU1 

50S41 

/ 

8XB 

EX8XB J 


SU2 

SU3 

SU4 

SU5 

SU6 


OP1 

OP2 


DET 


Function 

Updates the temporary file- 
hardware table as specified by 
the asgn card(s). 

Initializes the files used by the 
processor being called, and 
calls the first phase of that 
processor. 

Determines the type of update 
operation being performed, and 
calls in that particular updater. 

Places a new phase on the 
system file in any available 
location. 

Updates the header of a phase 
that is in the system file, as 
specified by a header card. 

Deletes a phase from the 
system file. 

Patches a part of a phase on 
the system file. 

Prints storage on the list file. 

Prints all work files on the list 
file. 


These phases are used by the 
Autocoder Assembler Program. 


50S51 

50S61 

50S71 

50S81 

50S91 


50SA1 

50SB1 


50SC1 


PIT 


50SD1 


Reads in the specified phase 
from disk storage and branches 
to the specified phase. 


Initializes the specified area with 
a twenty-character control word. 
This control word is obtained 
from the temporary file-hardware 
table. 

Reads the control file until a 
control card (halt, pause, note, 
init, updat, run, or asgn) is 
sensed. When a control card is 
sensed, the determiner causes a 
halt or pauses, prints out a note, 
calls the update determiner, calls 
the selector, or calls the con¬ 
figurator, depending upon the 
type of card. 

Contains the locations of the 
phases in the system. 


Tape Resident 


System Control Program 

This section describes the phases that make up the Sys¬ 
tem Control Program for tape-resident systems. 

Function 


Phase Name 

SYB 


ID 

50S01 


IOP 


50S21 


1. Determines machine size. 

2. Initializes switches according 
to the type of reader, punch, 
and printer (serial or parallel). 

3. Reads in the I/O package. 

4. Calls the determiner. 

1. Contains the assumed assign¬ 
ments for the logical files. 

2. Reads or writes tape in the 
move or load mode. The mode 
depends on the processor 
operation. 
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Phase Name ID 


Function 


Phase Name ID 


Function 



* 


m 


* 



3. Branches to the processor 
phase, or branches to the 
end-of-file routine if the 
end-of-file has been sensed. 

4. Reads in the specified phase 
from the system tape and 
branches to the specified 
phase. 

5. Initializes the specified area 
with a twenty-character 
control word. This control 
word is obtained from 
assumed assignments for 
logical files. 

DET 50SC1 1. Reads the control file until a 

control card (halt, pause, 

COPY, NOTE, IN IT, UPDAT, RUN, 

or asc.n) is sensed. When a 
control card is sensed, the 
determiner causes a halt, or 
pauses, or prints out a note. 

2. Updates assumed file assign¬ 
ments as specified by the asgn 
card(s). 

3. Initializes the files used by the 
processor being called, and 
calls the first phase of that 
processor. 

4. Determines the type of update 
operation being performed, 
and calls the updater. 


UPD 50SH1 1. Places a new phase on the 

system file in any available 
location. 

2. Updates the header of a 
phase that is in the system 
file, as specified by a header 
card. 

3. Deletes a phase from the 
system file. 


4. Patches a part of a phase on 
the system file. 


DMP 

50SL1 

DM2 

50SM1 

F/P 

50SN1 

F/2 

50SO1 

F/3 

50SP1 


Prints storage on the list file. 


Prints all work files on the list 
file. 


10F 


20F 


21F 


Fortran Processor Program 

This section describes the phases that make up the 

Fortran Processor Program. 

Phase Name ID Function 

OOF OOFIV 1. Reads compiler option control 

cards, if any, from the input 
file and outputs them on the 
list file. 

2. Initializes deblocking routines 
(getex and putex). 


10FIV 


20FIV 


21FIV 


3. Sets up an area in upper core 
storage for getex and putex 
buffers. 

4. Passes the first source-program 
statement to phase 10F. 

1. Reads source statements from 
input file until the end card 
is sensed. 

2. Assigns sequence numbers to 
all source statements except 
comments statements. 

3. Outputs the source program 
listing on the list file, if the 
option is exercised. 

4. Replaces key words (common, 

DIMENSION, GO TO, etc.) with 
internal three-character 
symbols. Replaces remaining 
portion of each statement with 
internal symbols. 

5. Replaces unrecognizable 
statements with diagnostic 
codes. 

6. Outputs nonexecutable and 
I/O name lists on work2 
and executable statements on 
workI. 

7. Calls phase 20F, 25F, 26F, 
30F, or 3IF, depending on 
type of source statements and 
compiling machine size. 

1. Extracts dimension, common, 

EQUIVALENCE, FUNCTION, 
SUBROUTINE, EXTERNAL, and 

type statements from work2. 

2. Builds a name-attribute table 
in upper core storage. 

1. Uses name-attribute table 
built by phase 20F and allo¬ 
cates object-time storage for 
common variables and appli¬ 
cable equivalence definitions. 

2. Allocates storage for normal 
variables with equivalence or 
dimension definitions, and 
adds this information to the 
name-attribute table. No 
storage is allocated unless the 
complete set of variable 
attributes has been 
determined. 

3. Compresses the name- 
attribute table, deleting 
information no longer 
required. 

4. Outputs a macro reflecting 
ordering or various variable 
types within common on the 
putex file. 

5. Calls phase 25F or 26F, if 
required. Otherwise, phase 
30F or 31F is called. 
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Function 


Phase 'Same ID 


Function 


Phase Name ID 

25F 25FIV 1. Extracts format, data, and 

define file statements and 
I/O name lists from work2. 

2. Replaces names in data or 
I/O name lists and source or 
generated constants from I/O 
name lists with object-time 
addresses. 

3. Generates sequence of macros 
with associated parameters on 
the putex file for each state¬ 
ment. An increased object-time 
character count is included 
with each sequence number 
or label assignment macro 
reflecting the total number of 
object-time characters since 
the last sequence number or 
label assignment macro. 

4. Begins label table for format 
statement numbers. 

5. Continues building name- 
attribute table and continues 
allocating storage as required. 

26F 26FIV Performs the same functions as 

phase 25F for format and data 
statements and I/O name lists, 
except processing of subscripting 
is deferred to phase 33F. (8K 
compiler). 

27F 27FIV Extracts define file statements 

and implied do's from the getex 
file and processes them in the 
same manner as phase 25F. (8K 
compiler). 

30F 30FIV 1. Extracts executable statements 

from the getex file, which can 
contain macros from phase 
25F. 

2. Continues building name- 
attribute table and label 
table, with allocation accom¬ 
plished when required. An 
address is substituted for a 
name and an internal repre¬ 
sentation is substituted for a 
label. 

3. Generates macros with appro¬ 
priate parameters for all exe¬ 
cutable statements, except for 
expressions that are passed to 
phase 40F. Subscripted vari¬ 
ables are processed as in phase 
25F, generating macros even 
when they are part of an 
expression. The object-time 
incremental character count is 
included with sequence num¬ 
ber or label assignment 
macros. 

4. If source label and name table 
overflows, subsequent source 
labels and/or names are 
passed in expanded form for 
replacement by phase 34F. 


31F 

32F 

31FIV ) 
32FIV j 

These phases each perform ap- 
> proximately one half of the 
! processing required of phase 

1 30F. 

33F 

33FIV 

Processes subscripted variables 
for 8K compiler. 

34F 

34FIV 

Phase 34F is an optional phase. 
When required, it completes the 
storage allocation for normal 
variables. It replaces names with 
addresses, and source labels with 
internal label notation. 

35F 

35FIV 

1. Outputs a name dictionary on 
the list file, if requested. 



2. Outputs constants as macros 
in the name table on the 
putex file. 



3. Allocates storage in upper core 
storage for a source label 
table and a generated label 
table which will eventually 
contain actual addresses. 



4. Calls phase 36F if compiling 
a subprogram. 

36F 

36FIV 

When a subprogram is being 


compiled, macros are generated 
on the putex file to represent the 
necessary processing when the 
subprogram is called. A “pro¬ 
logue” is generated; also, an 
“epilogue" is generated which 
represents any necessary resetting 
of values before returning control 
to the calling program. If 
variable dimensions have been 
used, a pass on the getex file is 
required when building the 
prologue name to indicate addi¬ 
tional object-time calculations. 

40F 40FIV 1. Extracts expressions from the 

getex file that were partially 
processed by phase 30F. The 
expressions are reordered ac¬ 
cording to implied operator 
precedence and parentheses, 
and macros are generated on 
the putex file. 

2. Extracts label assignments and 
sequence number macros 
from the getex file. For a 
sequence number, the incre¬ 
mental character count is 
replaced with an actual 
accumulative character count, 
and the macro is passed. 
Label assignment macros are 
not passed further. Actual 
addresses for source labels 
and generated labels are en¬ 
tered into the label table and 
generated label table. 

3. Passes control to phase 45F if 
a data statement is sensed. 
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Phase Name 

ID 

Function 

Phase Name 

ID 


1 

These phases each perform ap- 



41F 

41FIV l 

proximately one half of the 



42F 

42FIV j 

processing required of phase 

40F. 



43F 

43FIV 

Label assignments are handled in 
phase 43F. 

78F 

78FIV 

45F 

45FIV 

1. Extracts data name list 





macro sequences from the 
getex file. The macros are 
expanded into object code 
in a phase work area. The 
code references some included 
subroutines, data literal list 
macros are matched with 

79F 

79FIV 







object-time addresses and 
passed as regular literal 





macros. 





2. Continues label assignments 
and sequence number proc¬ 
essing as in phase 40F or 43F. 

80F 

80FIV 

50F 

50FIV 

Extracts label references from 
getex file and replaces them 
with actual addresses obtained 
from the source label table or 
generated label table. 

81F 

81FIV 

53F 

53FIV 

1. This phase is called only if 





diagnostic codes were output 
by a previous phase. The 
codes are extracted and 
translated into diagnostic 
messages that are output on 
the list file. These errors can 

82F 

82FIV 



90F 

90FIV 


be warnings, or severe errors 
that would prevent a success¬ 
ful compilation. 


Function 

loader and/or output files, 
depending on actual device as¬ 
signments. Control is returned to 
the det (determiner) phase of the 
System Control Program. 

Builds, updates, or lists the 
Fortran relocatable subprogram 
library. 

1. Reads loader control cards 
from the control file. 

2. Relocates and loads a main 
program and required sub¬ 
programs, possibly from the 
subprogram library. 

3. Establishes interprogram com¬ 
munication by replacing ex¬ 
ternal references by actual 
addresses. 

Produces an external name map 
on the list file, if requested. 

Produces storage print of the 
loaded program on the list file, 
if requested. The storage print 
does not include the standard 
overlay package. 

Produces an absolute deck on the 
output file, if requested. 

Standard overlay package for 
1401 or 1460, including arith¬ 
metic interpreter and standard 
I/O routines. 


54F 

55F 

70F 


2. If the messages were merely 
warnings, phase 70F is called. 

3. If the messages indicated er¬ 
rors that would prevent a 
successful compilation, the 
system halts, then control 
reverts to the det (determiner) 
phase of the System Control 
Program, which will read a 
control card from the control 
file. 

'j These phases consist of tables 
54FIV v. used by phase 53F to translate 
55FIV ( diagnostic codes into messages. 

/ (8K compiler). 

70FIV Generates object code in the re¬ 
locatable format from internal 
macros and associated param¬ 
eters. Addresses are substituted 
for label references if not pre¬ 
viously done by phase 50F. A 
header card image is always 
generated first, and a trailer card 
image is always generated as the 
last card. Between these two card 
images will be relocatable and 
external name cards to indicate 
object characters to be loaded 
and interprogram references. 
Card images appear on the 


91F 91FIV Standard overlay package for 

1440, including arithmetic inter¬ 
preter and standard I/O routines. 


External Names 

This section describes the external names that can ap¬ 
pear in the name map that is output by the Fortran 
loader. The external names represent such things as 
entry points to subroutines or intersubroutine areas. 


Name 

LINK 
EOF 
*0 
*1 
*2 
*3 
*4 
*5 
*6 
*7 
*8 
*9 


Meaning 
Phase call 
Test eof indicator 


Logical file control words 
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Name 

Meaning 

Name 

Meaning 

A. 

) 

%L 

Common logarithm, natural 

B. 

/ 


logarithm 

C. 

v Random file processing (disk- 

, M 

MOD 

D. 

( resident systems only) 



E. 

\ 

%M 

Remaindering — integer 

F. 

) 

, N 

ALOG 

G. 

format left parenthesis rou¬ 

, o 

minI 


tine 

%o 

Entry point in extreme value 

H. 

format right parenthesis 

,P 

AMOD 


routine 

%P 

Remaindering — real 

I. 

) 

> Q 

SQRT 

J. 

> Unedited read or write 



K. 


%Q 

Square root 

L. 

format scale factor 

, R 

FLOAT 

M. 

format specification 

% R 

Float 

N. 

format L-conversion 

,S 

SIN 

O. 

format A-conversion 

%s 

Sine 

P. 

FORMAT A-, L-, I-, F-, E- 

, T 

ATAN 


conversion 



Q. 

End FORMAT 

%T 

Arctangent 

R. 

BACKSPACE 

>u 

ISIGN 

S. 

END FILE 

, V 

IDIM 

T. 

REWIND 

,W 

SIGN 

U. 

find (disk-resident systems 

%w 

Transfer of sign 


only) 

V 


V. 

Search, variable file name 

, A 

EXP 

W. 

Object-time format 

%x 

Exponential 

X. 

Random file-definition vector 

, Y 

minO 


(variable file name) 

%Y 

Entry point in extreme value 

Y. 

Logical file-control-word 

,z 

AINT 


vector (variable file name) 


Z. 

Tape I/O (with disk-resident 

%z 

Truncation to real 


system) 

,0 

EQUAL 

,A 

ABS 

%0 

Relational 

%A 

Absolute value 





, 1 

NTEQU 

, B 

IABS 



,c 

cos 


Entry to relational 

%c 

Entry point in sin for cos 

,2 

GTHAN 

,D 

DIM 

%2 

Entry to relational 

%D 

Positive difference 

,3 

LTHAN 

,E 

amaxO 

%3 

Entry to relational 

%E 

Entry point in extreme value 

,4 

LTEQU 

, F 

AMAXl 



%F 

Find extreme value 

%4 

Entry to relational 

, G 

maxO 

,5 

GTEQU 

%G 

Entry point in extreme value 

%5 

Entry to relational 

,H 

MAXl 

,6 

POWER 

%H 

Entry point in extreme value 

,7 

IEXP 

,1 

I FIX 





%7 

Fixed exponentiation 

%I 

Truncate 



,J 

aminO 

, 8 

CMCM 

%J 

Entry point in extreme value 

%8 

Complement compression 

,K 

aminI 

,9 

ENTRY 

%K 

Entry point in extreme value 

+ 


,L 

alogIO 

,0 

QUIT 
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Name 

Meaning v 


□ A 

Subscripting entry 


□ B 

Subscripting exit (exits + 3) 1 


□ c 

Multiply/divide entry 2 ( 


□ D 

Multiply/divide exit ) 

f Names used by 

□ E 

Multiply/divide entry 1 ( 

the compiler 

□ F 

do entry 1 ■ ^ 

1 

□ G 

do entry 2 


□ H 

do entry 3 j 

1 

An 

strI ^ 


Bn 

divid; name of routine used 
by transcendental functions 


cn 

DEC j 


Dn 

NCON j 


En 

UPBY 1 

Labels in 

Fn 

NCTR \ 

COMMON 

Gn 

CALC 

) routine refer¬ 

Hn 

LOGMl / 

enced by trans¬ 

in 

LOGM2 1 

cendental 

J □ 

LOGMl -4 1 

functions 

Kn 

logm2-1 


Ln 

CALXT + 3 


m n 

CALCl 


Nn 

LNlO + 1 + X3 i 

j 

\ Labels in 

1 COMMON 

on 

LNlO + X3 ( 

routine 

Pn 

TWTCH | 

) 

referenced by 
i transcendental 
f functions 

un 

exitc + 3 (label in subscripts) 


vn 

spstr (label in subscripts) 


wn 

lites (label in sense light) 


xn 

lites 4- XI (label in sense light) 

Yn 

prod (label in subscripts) 


zn 

comcom (label in subscripts) 




Appendix III 


Building a System that Contains 
Fortran and Autocoder 

In this section, the Autocoder system refers to 1401/ 
1440/1460 Autocoder (on Disk), program number 1401- 
AU-008. The specifications and operating procedures 
for this program are contained in the Systems Refer¬ 
ence Library publications, Autocoder (on Disk) Lan¬ 
guage Specifications for IBM 1401, 1440, and 1460, 
Form C24-3258 and Autocoder (on Disk) Program 
Specifications and Operating Procedures for IBM 1401, 
1440, and 1460, Form C24-3259. 

File Considerations 

Because the System Control Program is the controlling 
element of the Autocoder system as well as the Fortran 
system, it is possible to build a system file that con¬ 
tains both the Fortran Processor Program and the Au¬ 
tocoder Assembler Program. 

Figure 46 shows the disk-storage allocation on the 
system unit when both Fortran and Autocoder are 
present. 

The user should consult the referenced Autocoder 
publications for a description of the Autocoder system. 


Two differences exist when the Autocoder system re¬ 
sides alone on a disk unit as opposed to when it resides 
on a disk unit that also contains the Fortran system. 
These differences are: 

1. The assumed assignment of the Autocoder library 
file. 

2. The assumed assignments if the Autocoder work 
files. 

Figure 47 gives the assumed assignments of the Auto¬ 
coder library file and the Autocoder work files when 
Autocoder and Fortran reside on the same system file. 
Do not consider the assumed assignments for these 
files as given in the Autocoder operating procedures 
publication. 

Note also that Autocoder uses a maximum of three 
work files, whereas six work files are defined for For¬ 
tran. Further, the user should note that Autocoder de¬ 
fines a coreload file (not applicable to Fortran), and 
Fortran defines a loader file (not applicable to Auto¬ 
coder). The assumed assignments for the remaining 
logical files (control, message, list, input, and out¬ 
put) are the same for both the Autocoder and the For¬ 
tran systems. 


File 

Mode 

File-Protected 

Sector Range 

SYSTEM File 




Autocoder Preprocessor Work Area 

Move 

No 

000000-000089 

Autocoder Preprocessor 

Move 

No 

000090-000199 

Autocoder Preprocessor 

Load 

No 

000200-000259 

Autocoder Preprocessor 

Move 

No 

000260-000299 

Autocoder Preprocessor 

Load 

No 

000300-000899 

Not Used 

Load 

No 

000900-002499 

System Control Program 

Load 

Yes 

002500-002904 

Fortran Processor Program 

Load 

Yes 

002905-002979 

Not Used 

Load 

Yes 

002980-002999 

System Control Program 

Load 

Yes 

003000-003175 

Fortran Processor Program 

Load 

Yes 

003176-004830 

Autocoder Assembler Program 

Load 

Yes 

004831-006159 

Area for User's Fortran Object Program Library 

Load 

Yes 

006160-006399 

WORK Files 

Move 

No 

006400-009999 

LOADER File (Fortran only. This area is used by Autocoder as a continuation 

Move 

No 

010000-011999 

of the WORK files.) 




LIBRARY File (Fortran) 

Move 

No 

012000-013899 

LIBRARY File (Autocoder) 

Move 

No 

013900-019979 


Figure 46. Disk Storage Allocation 
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File 

Assumed Assignment 

LIBRARY 

1311 UNIT 0, START 013900, END 019980 

1301 UNIT 0, START 013900, END 019980 

WORK 1 

1311 UNIT 0, START 006400, END 009600 

1301 UNIT 0, START 006400, END 009600 

WORK2 

1311 UNIT 0, START 009600, END 011400 

1301 UNIT 0, START 009600, END 011400 

WORK3 

1311 UNIT 0, START 011400, END 012000 

1301 UNIT 0, START 011400, END 012000 


Figure 47. Assumed Assignments of Autocoder library and 
work Files 


Building a Combined System 

To build a system comprising Fortran and Autocoder, 
first build a Fortran system as described in this publi¬ 
cation. 

After the Fortran system has been built, use the 
Autocoder marking program to separate the various 
components of the Autocoder program deck as de¬ 
scribed in Autocoder (on Disk) Program Specifications 
and Operating Procedures for IBM 1401, 1440, and 
1460, Form C24-3259. Use only the Autocoder-update 
section of the Autocoder program deck to build the 
Autocoder system. This section is made up of the sets 
of cards labeled autocoder processor, autocoder pre¬ 
processor, and autocoder macros. After the system 
has been built, use the appropriate sample program 
to test the system. 

Perform a user-update job to add the Autocoder As¬ 
sembler Program to the system file. Input for this job 
is as follows. 

1. The 1402 or 1442 card boot, followed by 

2. The system asgn card, which must be punched by 
the user, followed by 

3. The Autocoder update section, made up of the sets 
of cards labeled autocoder processor, autocoder 
preprocessor, and autocoder macros, followed by 

4. The halt card, which must be punched by the user. 

To build the system when it is to reside on 1311: 

1. Ready the Fortran system pack on disk drive 0. 

2. Set the I/O check-stop switch off. 

3. Set the check-stop switch and the disk-write switch 
on. 

4. Set the mode switch to run. 

5. Press check reset and start reset. 


6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

To build the system when it is to reside on 1301: 

1. Set the I/O check-stop switch off. 

2. Set the check-stop switch and disk-write switch on. 

3. Set the mode switch to run. 

4. Press check reset and start reset. 

5. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

6. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

The halts that can occur when using the Autocoder- 
update section are shown in Figure 33. 

Testing the Autocoder System 

The appropriate sample program deck, which is used 
to test the effectiveness of the system built by the user, 
calculates and lists a table of salaries. A listing of the 
sample program is shown in an appendix of the Auto¬ 
coder operating procedures publication. 

The first card in the sample program is a partially 
prepunched control card used for assigning the core¬ 
load file. This partially prepunched control card can¬ 
not be used when the Autocoder and Fortran systems 
reside on the same unit because the assignment of the 
coreload file designated in the control card is within 
the area defined for the Fortran library file. Discard 
this control card and replace it with a new control card 
punched in the following format. 


Columns 

Contents 

6-13 

CORELOAD 

16-19 

ASGN 

21-24 

1311 or 1301 

26-57 

UNIT 0, START 000040, END 000090 


To prepare and run the sample program, see Preparing 
a Stack and Running a Stack. 
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Appendix IV —Sample Program 


FORTRAN 

SARPLE PROGRAM TO TEST 


RUN 

SYSTEN 


001 

002 

003 

004 

005 

00 * 

OCT 

008 

008 

010 

Oil 


PR06RAR FOR FINDING THE LARGEST VALUE 
ATTAINE8 8Y A SET OF NUMBERS 
0 IRENS ION A(34) 

READ (l.DMAin.M.M) 

1 FORRAT ( 13/112F4.2)) 

BIGA-Afl! 

DC 20 I-2.N 

IF ItlGA.LT.Ami BIGA - AID 
20 CONTINUE 

WRITE (3 » 2 )N t B IGA 

2 FORRAT 121HITHE LARGEST OF THESE,I3.11H NUMBERS 
STOP 

END 


09PS2FIV 

09CS2FIV 

09RS2FIV 

10- S2FIV 
10JS2FIV 
10KS2FIV 
10LS2FIV 
10MS2FIV 
10NS2FIV 
100S2F I V 
10PS2FIV 
10QS2FI V 
10RS2FIV 

11- S2FIV 
11JS2FIV 


NAME DICTIONARY 

00366 A 0C371 N 0C376 I 


00389 BIGA 


SEQUENCE NUMBER BICTIONARY 


002-00391 

001-00528 


004-00410 

002-00528 


005-00422 

003-00591 


006-00445 

008-00644 


007-00489 

009-00659 


008-00493 

011-00742 


010-00512 011-00523 


SSTORAGE PRINT 


••• NAME MAP ••• 


0*091 

/✓/ 

07128 

W. 

07842 

) A 

08050 

) B 

08292 

,9 

07778 

•1 

08119 

IF 

08187 

)6 

07799 

• 3 

07820 

LINK 

08239 

) H 

06442 

G. 

0**51 

P. 

0*881 

0. 

0*4*4 

M. 

0*498 

M. 

08339 

, 8 

08292 

,0 

08500 

N. 

08635 

0. 

07934 

z> 

08093 

V) 

07989 

U) 

08051 

V) 

08348 

(0 

08360 

( 1 

08412 

(2 

08432 

I 3 

08392 

14 

08372 

15 

08482 

(8 










END OF NAME RAP ••• 


Figure 48. Sample Program (Part 1 of 3) 
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I 


* 


* 

* 



••* STORAGE PRINT *•* 


05700 
06000 
06100 
06200 
06300 
06600 
06500 
06600 
06 700 
06000 
06900 
07000 
07100 
07200 
07300 
07600 
07500 
07600 
C77C0 
07800 
07900 
080CC 
08 ICC 
062C0 
08 300 
00600 
08500 


XO* 
-0# 
JO* 
KO* 
LO* 
MO* 
NO* 
00 * 
PO* 
CO* 
RO* 
♦ 0* 
AO* 
BO* 
CO* 
DO* 
EO* 
FO* 
GO* 
HO* 
10 * 
00 - 
10 - 
20 - 
30- 
60- 
50- 


08600 

60- 

08700 

70- 

C8800 

80- 


SEXECLTION 


014404 

1111 


X060X9/K2Y 
1 11 1 
2MX060L5ZL 
111 11 1 
5/001003 IB 
1 1 11 
1C03IBM9Y0 
1 11 1 
-6X81*G0XM 
1 1 
o*ieei 8 K 26 
1 

0VP2AL281M 
1 1 
12LBC6UL 12 
1 

♦K7510C10E 
1 1 
G3T4GZLG3T 
1 

YDG4GG3ZBR 
1 1 
G3ZG6VBA6X 
1 

1X040FBE1X 

1 

/C99CG6SX0 

1 

05/ 

1 1 l 

G6V069BA6X 
1 

G7TG3TBF6* 

1 

L ST 
1 

09NB070TP I 
1 1 
CO10M0JCC8 
1 


6NMCJ1MC-8 
1 1 

B36-C-61P6 
1 1 

V65X2G9XB6 
1 1 

MX57L12MX9 
1 1 


B*65-6M -0 
1 1 1 
6U.BH2*X2S 
11 1 
C8//BM6S00 
11 1 
11 NUMBERS 
1 

089K86-K20 

1 

•BOOOMLC2X 
1 1 

0-6X62 » L28 
l 

IBQ5V001 B 
1 1 
C5 »X 758000 
1 1 

G7T0G36CG7 
1 1 

7NCC+CX35B 
l 1 

0+0 BA6X0+ 
1 

040EBC06E2 
1 1 

3BC3TSBG2/ 
1 1 
B*5Y ,09 
1 1 
BR7WCG6VXC 
1 1 

PC 18E26BOO 
1 1 1 


2X0-7SH096 

1 

9HG89C6CY0 
1 1 
16CC09FH 
1 1 1 
26RM0-2250 
1 

1X0-62B63X 

1 

6LB66L222 

1 

9C96B590L1 

1 


Z*B11RB18P 
11 1 
DET.900 BR 
11 11 
1B05/01200 
1 1 1 
ISB05/C01 
1 1 

K81AK81K86 

l 

86 S089X86M 
1 l 

M066096A08 
1 1 
QC6E03YX36 
1 1 

)X75H0C3R3 
1 1 

TQ099H0990 
1 1 

♦8XTB0C0ML 
1 1 

0 * 8C2/C40( 
1 

1*X16G6 SHC 
1 1 
UB+3WBM6UB 
1 1 1 

UBD6S ) 09UB 
1 1 1 

3BA8TSC089 
1 1 
CBCC6E23 
1 1 1 

H089M062H3 
1 1 

0—6BH6WHI 8 
1 1 

-9088H0960 

096H096C—6 
1 

MCJ626LH27 
1 l 

0-63B39X0- 

l 

V65X2G9BB6 
1 1 
62B57N1T2 
1 


—7W—9*—7/X 
1111 
75-G/IBX6* 
1 11 

6F002BM6UB 
11 1 1 
009F002BQ8 
1 11 1 
CL02X86B01 
1 1 
X86K8 1BC18 
1 

9C96*X 2009 
1 

01YHQ7T50- 
1 

ZV003L17SB 
1 1 
♦1B000H096 
1 1 

26G3*H*5T0 

1 

BC8T040)BF 
l 1 

7Y0C1CG6VX 
l 

♦5YB43WBC8 
1 1 

R7NB47WMG3 
1 1 

LC2BG1*TBF 
1 1 

1 1 1 
LMH3X835B7 
1 l 

Z 19*S11009 
1 

-7B05JO-6, 
1 

H17C0+0M95 
1 1 
JCJ5B0J5NA 
1 11 
66B 37X0-65 
1 

6LB66L222 
1 

B56H1T2TP5 
1 1 





14A 


2BL29G7Y1M 




1 1 


11 1 11 

OSJ9TB665— 

8Z-S-7W-7Y 

•-7W5J8Z6B 

♦65A-7W-7Y 

S-7W -8Z6B 

J2WBL29G9Z 

1 1 1 

111 1 

11 1 11 

11 1 

11 1 11 

1 1 

BR75S-7W-7 

Yt-XM(B23R 

B11RB18P-7 

W—7Z-7/X0S 

K8XBK6*B49 

3BM6S001BO 

1 111 

11 11 

1 1 1 

1 1 l 

1 1 1 

1 1 1 

08/ BR75-G 

/-YZCB493B 

M6S001BM9Y 

0211THC LA 

RGEST OF T 

HESEB05/00 

11 1 

1 11 1 

1 1 

1 1 


1 1 

/ M0-6X90H 

0960—7HX96 

BB18H096-X 

20K90CK03K 

90BB18SMX9 

6096BB18M0 

11 1 

1 

1 1 1 

1 

1 1 

1 1 

VUH0960-7A 

X81089*X81 

096BN8SL16 

lMO-O1T2BN 

8ZHIT20-0H 

0960—IH089 

1 1 

1 

1 

1 1 

1 1 

1 

E06)C0XBN6 

S8000X99-M 

0JOL12,062 

065M0J3067 

MO—9066HX7 

6040HX710- 

1 1 1 

1 1 

1 

1 

1 1 

1 

6CL02096BC 

7UUHX680-1 

HX650-0DX1 

7001YX9800 
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Figure 48. Sample Program (Part 2 of 3) 
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IlfS2FIV 


THE LARGEST Of THESE 12 NUMBERS IS 9876.54 

PAUSE PRESS START TO UPOATE SYSTEM MITH PHASE 



UPOAT///,INSERT 


11QS2F IV 



PROOUCTIQNRUN /// 


26JS2FIV 



THE LARGEST OF THESE 12 NUMBERS IS 9876.54 

PAUSE PRESS START TO DELETE SAMPLE PROGRAM FROM SYSTEM 


26MS2FIV 


UPOAT///,DELETE 

HALT SAMPLE PROGRAM COMPLETE, ALL SYSTEMS ARE GO. 


26NS2FIV 
260S2FIV 


Figure 48. Sample Program (Part 3 of 3) 
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